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(57) Abstract: A control flow 
description and a data flow description 
aie determined from the part of the 
con4>uter programme concerned and 
programme elements are selected from 
said part of the computer programme. An 
element error description is determined 
for each selected programme element 
using a stored error description that is 
allocated to each reference element, this 
element mot description describing 
the possible errors of the respective 
programme element. The total error 
description is then determined from the 
element error descriptions, taking into 
account the control flow description and 
the data flow descrq>tion. 

(57) Zusammenfassung: Aus dem 
Teil des Coir^>ut^x''^(>Si^^^i™^ werden 
eine KontroUfluBbeschreibung und eine 
Datenfiu&beschieibung ermittelt imd 
es werden Piogrammelemente aus dem 

Teil des Computerprogranmis aiisgewahlt. Fib- jedes ausgewahlte Programmelement wird unter Verwendung einer gespeicherten 
Fehlerbeschreibung, die jeweils einem Referenzelement zugeordnet ist, eine Elementenfehlerbeschreibung ermittelt, mit da- 
mogliche Fehler des jeweiligen Programmelements beschrieben werden. Aus den Elementenfehlerbeschreibungen wird die 
Gesamtfehlerbeschreibung unter Beriicksichtigung der KonirollfluBbeschreibung und der Datenflufibeschreibung ermittelt. 
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Beschreibung 

Verfahren und Anordnung zur Ermlttlung einer Gesamtifehlerbe*- 
schreibung zumindest elnes Tells eines Coicqpulierprograinnis so- 
5 wie Coinputerprograxnm-Erzeugnis und coxnpu'kerlesbares Sp>eicher* 
medium 

Die Erfindiing betrifft ein Verfahren imd eine Anordnung zur 
Ermittlung einer Gesamtf ehlerbeschreibung zumindest eines 
10 Tells eines Computerprogramms sowie ein Computer-Erzeugnis 
und ein computerlesbares Speichermedium* 

Ein solches Verfahren und eine solche Anordnung ist aus [1] 
bekannt . 

15 

Aus [1] ist bekannt, eine Gesamtf ehlerbeschreibung in Form 
eines Gesamtf ehlerbaums fUr ein Computerprogramm rechnerge- 
stiitzt zu ermitteln. FUr das Computerprogramm wird eine Kon- 
trollf luBbeschreibung in Form eines Kontrollf lufigraphen er- 

20 mittelt. FUr verschiedene Pro gramme lemente des Computerpro- 
gramms wird unter Verwendung einer gespeicherten Fehlerbe- 
schreibvmg, die jeweils einem gespeicherten Ref erenzelement 
zugeordnet ist, eine Elementenf ehlerbeschreibung ermittelt* 
Mit der Fehlerbeschreibung eines Ref erenzelements werden mog- 

25 liche Fehler des jeweiligen Ref erenzelements beschrieben. Aus 
den Elementenfehlerbeschreibungen in Form von Elementenf eh- 
lerbaumen wird die Gesamtf ehlerbeschreibung unter Berticksich- 
tigung des Kontrollf lufigraphen zu den Computerprogramm ermit- 
telt. 

30 

Das Verfahren und die Anordnxing aus [1] weisen insbesondere 
folgende Nachteile auf . Der ermittelte Gesamtf ehlerbaiom ist 
hinsichtlich der untersuchten Fehler und deren Ursachen un- 
vollstandig und damit unzuverlassig. Somit ist diese Vorge- 
35 hensweise ftir sicherheitskritische Anwendungen im Rahmen der 
Fehlerbaumgeneriervmg ftir ein Computearprogramm nicht sinnvoll 
einsetzbar. Auch sind die einzelnen Fehlerba\ime, die den Re- 
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ferenzelementen zugeordnet sind, unvollstandig und damit un- 
zuverl^ssig. 

In [2] ist eine tJbersicht tiber ein sogenanntes Slicing zu 
5 finden. Slicing entspricht der T^alyse, die bei der Ursachen 
suche fUr ein Fehlverhalten eines Computerprograinmes durchge 
ftihrt wird. Im Rahmen dieses Vorgehens wird geprtift, ob das 
Fehlverhalten durch eine aktuell betrachtete Anweisxing verur 
sacht wurde. Ist dies nicht der Fall, so werden die Anweisun 

10 gen tiberprtift, die fiir die Anweisung Daten lief em oder ihre 
Ausfiihrung steuern. Dieses Verfahren wird fortgesetzt, bis 
keine Vorgange mehr existieren, also Eingabedaten des Compu- 
te jrprogramnis erreicht werden • Beim Slicing werden sogenannte 
Slices ermittelt. Mit einem Slice wird dargestellt, welche 

15 Anweisiingen auf welche Weise von einem betrachteten Wert be- 
einflufit werden. Im weiteren wird lanter dem Begriff Slicing 
stets ein ruckwarts gerichtetes Slicing verstanden. 

Aus [3] ist es bekannt, zu einem Computerprogramm eine Kon- 
20 trollf Ixafibeschreibung und eine Datenf lufibeschreibung zu er- 
mitteln. In [3] wird diese Darstellung als Ausgangsbasis ftir 
sogenanntes datenf lufiorientiertes Testen des Computerpro- 
gramms eingesetzt. Den Anweisungen (Knoten) des KontrollfluB 
graphen werden Datenf luBattribute (Datenf lufibeschreibung) zu 
25 geordnet/ die die Art der in den Anweisungen des Computerpro 
grammes enthaltenen Datenzugrif f e beschreibt. Es werden 
schreibende Zugriffe und lesende Zugriffe unterschieden. 
Schreibzugrif fe werden als Definitionen (def) bezeichnet. Le 
sende Zugriffe werden als Referenz bezeichnet. Erfolgt ein 
30 lesender Zugriff in einer Entscheidung, so wird dieser Zu- 
griff als pradikative Referenz (p-use, predicate use) be- 
zeichnet, Ein lesender Zugriff in einer Berechnung eines Wer 
tes wird als berechnende Referenz bezeichnet (c-use, computa 
tional use) * 

35 

Aus [4] sind Grundlagen tiber einen Fehlerbaum bekannt, Unter 
einem Fehlerbaum ist, wie in [4] beschrieben, eine Struktur 
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zu verstehen/ die logische Zusammenhange zwischen Eingangs- 
groBen des Fehlerbaums beschreibt, welche EingangsgroBen zu 
einem vorgegebenen iinerwOnschten Ereignis fiihren. 

5 Ferner sind aus [5] verschiedene Verfahren zur Fehlerbaum- 
analyse bekannt. 

Der Erfindung liegt das Problem zugrunde, eine Gesamtf ehler- 
beschreibxing zu ermitteln, die gegenUber einer gemaB dem Ver- 
io fahren aus [1] bekannten Ermittlung eines Gesamtf ehlerbaums 
zuverlassiger ist* 

Das Problem wird durch das Verfahren sowie durch die Anord- 
nung mit den Merkmalen gemaB den unabhSngigen AnsprUchen so- 
15 wie durch das Computer-Erzeugnis und das computerlesbare 

Speichermedium mit den Merkmalen gemaB den unabhangigen An- 
spriichen gelost* 

Bei einem Verfahren zur Ermittliing einer Gesamtf ehlerbe- 

20 schreibvmg zumindest eines Teils eines ComputerprogrammeS/ 

durch einen Computer/ ist zumindest der Teil des Computerpro- 
grammes gespeichert, Es wird eine Kontrollf luBbeschreibung 
und eine Datenf luBbeschreibung zu dem Teil des Computerpro- 
grammes ermittelt und es werden Programmelemente aus dem Teil 

25 des Computerprogrammes ausgewahlt. Fiir jedes ausgewahlte Pro- 
grammelement wird unter Verwendung einer gespeicherten Feh- 
lerbeschreibung eine Elementenf ehlerbeschreibung ermittelt- 
Die Fehlerbeschreibung ist jeweils einem Ref erenzelement zu- 
geordnet. Mit der Elementenf ehlerbeschreibung werden m5gliche 

30 Fehler des jeweiligen Programmelementes beschrieben* Mit ei- 
ner Fehlerbeschreibung eines Ref erenzelements werden m5gliche 
Fehler des jeweiligen Ref erenzelements beschrieben. Aus den 
Elementenfehlerbeschreibungen wird unter Berticksichtigung der 
Kontrollf luBbeschreibung und der Datenf luBbeschreibung die 

35 Gesamtf ehlerbeschreibung ermittelt- 



wo 00/75780 



PCT/DEOO/01001 



4 

Eine Anordniing zur Ermittliing einer Gesamtf ehlerbeschreibxang 
zimindest eines Teils eines Computerprogrammes weist einen 
Prozessor auf / der derart eingerichtet ist, daB folgende Ver- 
fahrensschritte durchfiihrbar sind: 
5 - Zumindest der Teil des Computerprogramias ist gespeichert, 

- es werden eine Kontrollf luBbeschreibung und eine Daten- 
fluBbeschreibung fur den Teil des Computerprograi mn s ermit- 
telt, 

- aus dem Teil des Computerprogrammes werden Programmelemen- 
10 te ausgewahlt, 

- fiir jedes ausgewahlte Programmelement wird unter Verwen- 
dung einer gespeicherten Fehlerbeschreibung/ die jeweils 
einem Ref erenzelement zugeordnet ist, eine Elementenf eh- 
lerbeschreibung ermittelt, mit der mogliche Fehler des je- 

15 weiligen Programmelements beschrieben werden, 

- mit einer Fehlerbeschreibung eines Ref erenzelements werden 
mogliche Fehler des jeweiligen Ref erenzelements beschrie- 
ben, 

- aus den Elementenf ehlerbeschreibungen wird die Gesamtfeh- 
20 lerbeschreibung xanter Beriicksichtigung der Kontrollf luBbe- 

schreibiing und der Datenf lufibeschreibung ermittelt. 

Ein Computerprogramm-Erzeugnis umfaBt ein computerlesbares 
Speichermedium, auf dem ein Programm gespeichert ist, dafi es 
25 einem Computer ermoglicht, nachdem es in einen Speicher des 

Computers geladen worden ist, folgende Schritte durchzufiihren 
zur Ermittlung einer Gesamtf ehlerbeschreibung zumindest eines 
Teils eines Computerprogramms : 

- Zumindest der Teil des Computerprogramms ist gespeichert, 
30 - es werden eine Kontrollf lufibeschreibung und eine Daten- 

fluBbeschreibung fUr den Teil des Computerprogramms ermit- 
telt, 

- aus dem Teil des Computerprogrammes werden Programmelemen- 
te ausgewahlt, 

35 - fUr jedes ausgewahlte Programmelement wird unter Verwen- 
dung einer gespeicherten FehlerbeschreibTing, die jeweils 
einem Ref erenzelement zugeordnet ist, eine Elementenf eh- 
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lerbeschreibung ermittelt, mit der magliche Fehler des je- 
weiligen Programmelements beschrieben warden, 

- mit einer Fehlerbeschreibiing eines Ref erenzelements werden 
mSgliche Fehler des jeweiligen Ref erenzelements beschrie- 
ben, 

- aus den Elementenf ehlerbeschreibungen wird die Gesamtfeh- 
lerbeschreibiong unter Berticksichtigxing der Kontrollf lufibe- 
schreibiing und der Datenf luBbeschreib\ing ermittelt- 

Auf einem computerlesbaren Speichermediim ist ein Programm 
gespeichert, daB es einem Computer ermoglicht, nachdem es in 
einen Speicher des Computers geladen worden ist, folgende 
Schritte durchzufOhren zur Ermittlung einer Gesamtf ehlerbe- 
schreibung z\amindest eines Teils eines Computerprogramms : 

- Zumindest der Teil des Computerprogramms ist gespeichert, 

- es werden eine Kontrollf IxoBbeschreibung und eine Daten- 
fluBbeschreibting fUr den Teil des Computerprogramms ermit- 
telt, 

- aus dem Teil des Computerprogrammes werden Programmelemen- 
te ausgewahlt, 

- ftir jedes ausgewahlte Programme lement wird unter Verwen- 
dung einer gespeicherten Fehlerbeschreibung, die jeweils 
einem Ref erenze lement zugeordnet ist, eine Elementenf eh- 
lerbeschreibung ermittelt, mit der mogliche Fehler des je- 
weiligen Programmelements beschrieben werden, 

- mit einer Fehlerbeschreibung eines Ref erenzelements werden 
mogliche Fehler des jeweiligen Ref erenzelements beschrie- 
ben, 

- aus den Elementenf ehlerbeschreibungen wird die Gesamtfeh- 
lerbeschreibung unter Bertlcksichtigung der Kontrollf lufibe- 
schreibung und der Datenf lufibeschreibung ermittelt. 

Durch die Erfindung ist es nunmehr moglich, eine zuverlassi- 
ge, die Eigenheiten eines Computerprogramms berticksichtigende 
Gesamtfehlerbeschreibung fiir ein Computerprogramm oder einen 
Teil desselben zu ermitteln. Da die ermittelte Gesamtfehler- 
beschreibung wesentlich zuverlassiger ist als die gemafi dem 
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Verfahren aus [1] ermittelbare Gesamtf ehlerbeschreibung, ist 
die Erfindung auch fUr sicherheitskritische Anwendiingen, d.h. 
insbesondere fUr die Ermittliing einer Gesamtf ehlerbeschrei- 
biing eines sicherheitskritischen Computerprogramnis geeignet- 

5 

Bevorzugte Weiterbildxangen der Erfindung ergeben sich aus den 
abhangigen Anspriichen. 

Die KontrollfluBbeschreibung und/oder die Datenf luBbeschrei- 
10 bung kann/k5nnen in Form eines Kontrollf lufigraphen bzw. eines 
Datenf luBgraphen vorliegen. 

Die Fehlerbeschreibung kann in Form eines gespeicherten Feh- 
lerbaums vorliegen \and die Elementenf ehlerbeschreibung kann 
15 als Elementenf ehlerbaum ermittelt werden. In diesem Fall kann 
die Gescimtf ehlerbeschreibung als Gesamtf ehlerbaum ermittelt 
werden. 

Durch diese Weiterbildung ist eine standardisierte Darstel- 
20 lung einer Fehlerbeschreibung moglich, was es einem Benutzer 
der Fehlerbeschreibung erheblich vereinfacht, diese zu analy- 
sieren. 

Die Gesamtf ehlerbeschreibung kann in einer Weiterbildung ein- 
25 gesetzt werden zur Fehleranalyse des Teils des Computerpro- 
gramms • 

Diese Weiterbildung weist insbesondere den Vorteil auf, daB 
eine automatisierte, zuverlassige Fehleranalyse, bei Vorlie- 
30 gen der Fehlerbeschreibungen in Form von Fehlerbaumen sogar 

eine gemaB den Fehlerbaimanalyseverf ahren "normierte" Analyse 
der Fehlerbeschreibung moglich wird. 

In einer weiteren Ausgestaltung wird die Gesamtf ehlerbe- 
35 schreibung als Gesamtf ehlerbaum ermittelt und der Gesamtfeh- 
lerbaiam wird hinsichtlich vorgebbarer Rahmenbedingungen ver- 
andert . 
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Die Veranderiing kann durch Hinzufugen eines Erganzungsf ehler- 
baxims erfolgen. 

5 Ein AusfOhrungsbeispiel der Erfindung ist in den Figuren dar- 
gestellt Mnd wird im weiteren naher erlautert: 

Es zeigen 

10 Figur 1 einen Computer, mit dem das Verfahren gem^fi dem Aus- 
fOhrungsbeispiel durchgefiihrt wird; 
Figur 2 ein Ablauf diagrainm, in dem die einzelnen Verfahrens- 
schritte des Verfahrens gemaB dem AusfOhrungsbeispiel 
dargestellt sind; 

15 Figur 3 eine Darstellung eines allgemeinen Fehlerbaums, wie 

er fiir ein Ref erenzelement prinzipiell gebildet wird; 
Figuren 4a bis 4c einen Kontrollf lufigraphen (Figur 4a), einen 
Slice (Figur 4b) und einen Fehlerbaum (Figur 4c) filr 
eine Anweisungssequenz als Ref erenzelement eines Com- 

20 puterprogramms; 

Figuren 5a bis 5c einen Kontrollf lufigraphen (Figur 5a), einen 
Slice (Figur 5b) und einen Fehlerbaum (Figur 5c) filr 
eine Auswahlsequenz als Ref erenzelement eines Compu- 
terprogramms ; 

25 Figur 6a bis 6c einen Kontrollf lufigraphen (Figur 6a), einen 
Slice (Figur 6b) und einen Fehlerbaiam (Figur 6c) ftir 
eine Schleife als Ref erenzelement eines Computerpro- 
gramms ; 

Figur 7 ein Kontrollf luBgraph mit Datenf lufigraph zu einem 
30 Computerprogranm gemafi dem AusfOhrungsbeispiel; 

Figuren 8a und 8b einen Slice der Ausgabe der Variable max 

(Figur 8a) bzw. einen Slice zu der Variable avr (Fi- 
gur 8b) zu dem Programm gemafi dem AusfOhrungsbei- 
spiel; 

35 Figur 9 den Slice fur die Variable avr, in dem eine Struktur 
der Schleife aus dem Programm des AusfOhrungsbei- 
spiels hervorgehoben ist; 
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Figur 10 einen Fehlerbaum fiir die Annahme, daB die Variable 

avr fehlerhaft 1st; 
Figur 11 den Gesamtf ehlerbaxim gemaB Figur 10/ wobei redundan- 

te Ereignisse aus dem Gesamt fehlerbaum gemafi Figur 10 
5 2U einem Ereignis zusammengefafit worden sind. 

Fig.l zeigt einen Computer 100 mit dem das im weiteren be- 
schriebene Verfahren durchgeftlhrt wird, 

10 Der Computer 100 weist einen Prozessor 101 auf, der tiber ei- 
nen Bus 103 mit einem Speicher 102 verbunden ist. Mit dem Bus 
103 ist ferner eine Eingangs-/Ausgangsschnittstelle 106 ver- 
bunden . 

15 In dem Speicher 102 ist ein Computerprogramm 104 gespeichert, 
fiir das auf die im folgenden beschriebene Weise eine Ge- 
samt fehlerbeschre ibung ermittelt wird. Ferner ist in dem 
Speicher 102 ein Programm 105 gespeichert, durch das das im 
weiteren beschriebene Verfahren realisiert ist. Ferner sind 

20 in dem Speicher Fehlerbeschreibxingen 115 iinterschiedlicher 

Ref erenzelemente eines Computerprogramms gespeichert, Mit ei- 
ner Fehlerbeschreibung eines Ref erenzelements werden mogliche 
Fehler des jeweiligen Ref erenzelements beschrieben. Verschie- 
dene Ref erenzelemente und den Ref erenzelementen zugeordnete 

25 Fehlerbeschreibungen werden im weiteren detailliert erlSiu- 
tert. 

Mit der Eingangs-/Ausgangsschnittstelle 106 ist Uber eine er- 
ste Verbindxing 107 eine Tastatur 108 verbunden, Ober eine 

30 zweite Verbindung 109 ist die Eingangs-ZAusgangsschnittstelle 
106 mit einer Computermaus 110 und iiber eine dritte Verbin- 
dung 111 ist die Eingangs-ZAusgangsschnittstelle 106 mit ei- 
nem Bildschirm 112 verbunden, auf dem die ermittelte Ge- 
samt fehlerbeschreibung des Computerprogramms 104 dargestellt 

35 wird, Ober eine vierte Verbindung 113 ist die Eingangs- 

/Ausgangsschnittstelle 106 mit einem externen Speichermedium 
114 verbunden. 
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Fig. 2 zeigt in einem Blockschaltbild die Vorgehensweise gem^ 
dem im weiteren beschriebenen AusfUhrungsbeispiel . 

5 Aus dem gespeicherten Compute rprogramm 104 werden ein Kon- 
trollflufigraph 201 xind ein Datenf lufigraph 202 fiir das Compu- 
terprogranmi 104 ermittelt. 

Aus dem Computerprogramm werden einzelne Programmelemente 
10 ausgewahlt (Schritt 203) . FUr jedes ausgewahlte Programmele- 
ment wird unter Verwendxing einer gespeicherten Fehlerbe- 
schreibung/ die e.inen zu dem ausgewahlten Programmelement 
korrespondierenden Ref erenzelement zugeordnet ist, eine Ele- 
ment enfehlerbeschreibung ermittelt (Schritt 204) • Hit der 
15 Elementenfehlerbeschreibung werden mogliche Fehler des jewei- 
ligen ausgewahlten Prograromelements beschrieben. 

Ausgehend von einem von einem Benutzer vorgegebenen zu unter- 
suchenden Fehlerereignis in dem Computerprogramm (\inerwunsch- 
20 tes Ereignis) wird in einem letzten Schritt (Schritt 205) ei- 
ne Gesamtfehlerbeschreibung des Computerprogrammes fUr den zu 
untersuchenden Fehlerfall ermittelt aus den Elementenf ehler- 
beschreibungen, wobei der Kontrollf lufigraph und der Daten- 
fluBgraph beriicksichtigt werden. 

25 

Der ermittelte Gesamtf ehlerba\am wird dem Benutzer auf dem 
Bildschirm 112 dargestellt. 

Fig, 3 zeigt die grundlegende Vorgehensweise bei der Erstel- 
30 lung eines Fehlerbaums, wie sie im Rahmen des Ausgangsbei- 
spiels verwendet worden ist zur Bildung der im weiteren be- 
schriebenen Fehlerbaume zu den Ref erenzelementen. 

Zu einem von einem Benutzer ausgewahlten Ereignis 301 ist zu 
35 ermitteln, wie das ausgewahlte fehlerhafte Ereignis entstehen 
kann, Bei einem Computerprogramm kann eine fehlerhafte Ausga- 
be einer Variablen als ausgewahltes fehlerhaftes Ereignis 
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(unerwUnschtes Ereignis) 301 verursacht werden durch einen 
KontrollfliiBfehler 303 und/oder einen Datenfehler 304 
(INKLUSIV-ODER-Verkntlpfung 302) . 

5 Unter einem KontrollfliiBfehler 303 ist eine fehlerhafte An- 
steuerung der Verarbeitung der jeweiligen Variablen zu ver- 
stehen. 

Unter dem Datenf l\ifif ehler 304 ist ein Fehler zu verstehen, 
10 der durch fehlerhafte Daten bei der Verarbeitung entsteht. 

Der DatenfluBfehler 304 kann in dem aktuell betrachteten Ver- 
arbeitungsschritt neu entstehen (Block 306) und/oder er kann 
schon vorhanden gewesen sein und lediglich durch Fehlerpropa- 
15 gation erhalten bleiben Block 307) (INKLUSIV-ODER-Verkniipfung 
305) . 

Ausgehend von diesen Oberlegungen werden im weiteren fiir fol- 
gende Elemente eines Computerprogrammes jeweils der entspre- 
20 chende Fehlerbaum, ein die Anweisung beschreibender Slice so- 
wie ein Kontrollf luBgraph dargelegt: 

- eine Anweisungssequenz, 

- ein Auswahl element/ 

- ein Schleif enelement . 

25 

Anwei sungssequenz 

Die Anweisungssequenz 401 weist die in Fig. 4a dargestellten 
30 drei J^nweisungen auf . In einer ersten Anweis\ing 402 wird ei- 
ner ersten Variable j der Wert 3 zugewiesen (j := 3) . Durch 
eine zweite Anweisung 403 wird einer zweiten Variable k der 
Wert 2 zugeordnet (k := 2) • Durch eine dritte Anweisung 404 
wird eine Summe Uber die erste Variable und die zweite Varia- 
35 ble gebildet (i := j + k) . 
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Es wird gemafi der Vorgehensweise aus [2] zu dieser Anwei- 
sungssequenz 401 ein Slice 410 gebildet, wie er in Fig. 4b 
dargestellt ist. Die erste Anweisiang 402 und die zweite An- 
weisung 403 haben beide Auswirkungen auf die dritte Anweisxmg 
5 404, was durch zwei Pfeile 411, 412 in dem Slice 410 darge- 
stellt ist. 

Zu dem Kontrollf lufigraph 401 ergibt sich der in Fig. 4c darge- 
stellte Fehlerbaum 420 ftlr folgendes vorgegebenes unervrtinsch- 
10 tes Ereignis 421: 

"Variable i ist nach der dritten Anweisung fehlerhaft". 

Das fehlerhafte Ereignis 421 kann durch einen Fehler bei der 
15 betrachteten dritten Anweisung 404 selbst bei bis zu diesem 
Anweisungsschritt korrekten Daten erzeugt worden sein (Ele- 
ment 422 in Fig. 4c) . Das fehlerhafte Ereignis 421 kann jedoch 
auch durch verfalschte Eingabedaten der dritten Anweisung 
verursacht werden, d.h. durch INKLUSIV-ODER-Verkntipfung 424 
20 der Ereignisse, dafi die zweite Variable k nach der zweiten 

Anweisung fehlerhaft war (Element 425) und/oder daB die erste 
Variable j nach der ersten Anweisung 402 fehlerhaft war (Ele- 
ment 426) . Das Ergebnis der ersten iNKLUSIV-ODER-VerknUpfung 
424 wird inklusiv-oder verknQpft mit dem Ereignis, daB die 
25 dritte Anweisung fehlerhaft ist (INKLUSIV-ODER- VerknUpfvmg 
423) . 



Au s wahl el emen t 

30 

Bei einem Auswahlelement als Ref erenzelement miissen Fehler- 
moglichkeiten der Datenfliisse und der Kontrollf lUsse inner- 
halb des Computerprogramms beachtet werden. 

35 In den Fig.Sa bis Fig. 5c ist ein Kontrollf luB graph 501 (vgl. 
Fig. 5a), ein Slice 520 (vgl. Fig. 5b) sowie ein Fehlerbaum 540 
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(vgl. Fig. 5c) ftir eine If-Then-Else-Anweisimg als Auswahlele- 
ment dargestellt, 

Der Kontrollf luBgraph 501 xmfaBt folgende sechs Anweisungen: 
5 - Eine erste Anweisung 502, mit der einer ersten Variable j 
der Wert 3 zugeordnet wird (j := 3), 

- eine zweite Anweisung 503^ mit der einer zweiten Variable 
k ein vorgebbarer Wert zugeordnet wird (k := ...)/ 

- eine dritte Anweisung 504/ in der tlberprlift wird^ ob die 
10 zweite Variable k einen Wert grofler als 0 aufweist; ist 

der Wert der zweiten Variable groBer 0, dann verzweigt die 
Anweisung zu einer vierten Anweisung 505, sonst zu einer 
filnften Anweisung 506, 

- die vierte Anweisung 505, in der einer dritten Variable i 
15 der Wert der zweiten Variable k zugeordnet wird (i k) , 

- eine ftinfte Anweisung 506, in der der dritten Variable i 
der Wert der zweiten Variable k mit negativem Vorzeichen 
zugeordnet wird (i:=-k), 

- eine sechste Anweisung 507, in der die dritte Variable i 
20 in beliebiger Weise weiterverarbeitet wird. 



Zu dem in Fig. 5a dargestellten Kontrollf luBgraphen 501 ergibt 
sich fUr das Auswahl element der in Fig. 5b dargestellte Slice 
520. 

25 

Durchgezogene Kanten in dem Slice 520 stellen eine Datenab- 
hangigkeit der unterschiedlichen Anweisungen voneinander dar. 

Mit gestrichelten Kanten werden Kontrollabhangigkeiten der 
30 entsprechenden Anweisungen voneinander angegeben. 

Fiir die beiden Kantentypen gelten die folgenden Def initionen: 
- gestrichelte Kanten, im weiteren als Kontrollkanten be- 
zeichnet, sind von Anweisungen, die eine pradikative Refe- 
35 renz enthalten (Ausf allkonstrukte, Schleif ensteuerung) , 

auf die unmittelbar kontrollierten Anweisungen gerichtet, 
d.h. auf jene Anweisungen, die nur ausgeftihrt werden, wenn 
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das Pradikat einen bestimmten Wert hat. Kontrollkanten 
warden nur zwischen der kontrollierenden Anweisung und \in- 
mittelbar eingeschachtelten Anweisungen gezogen. 1st in 
einem kontrollierten Block eine weitere Kontrollebene ein- 
5 geschachtelt/ so werden keine Kontrollkanten gezogen, die 

mehr als eine Ebene tiberstreichen. Da eine Kontrollbezie- 
hung transitiv ist, kann diese mittelbare Kontrolle aus 
dem Slice durch Ausnutziing der Transitivitat geschlossen 
werden . 

10 - durchgezogene Kanten, im weiteren als Datenf l\iBkanten be- 
zeichnet, sind von Anweisvmgen/ in denen eine Variable de- 
finiert wird, auf Anweisungen gerichtet, in denen diese 
Variable referenziert wird. Die betrachtete Variable darf 
zwischen der Definition und der Referenz nicht erneut de- 

15 finiert werden. Man bezeichnet dies als def initionsf reien 

Pfad beztiglich der betrachteten Variablen. 

Der Slice wird ermittelt, indem ausgehend von der Anweisung 
mit der betrachteten Variablen, ftir die das unerwOnschte Er- 

20 eignis vorgegeben wird, der Kontrollf luBgraph gegen die Kan- 
tenrichtiing nach Definition der betrachteten Variablen durch- 
sucht wird. Existieren zu der Definition berechnende Referen- 
zen, so wird das Verfahren rekursiv fortgesetzt, bis keine 
zusatzlichen Knoten mehr gefunden werden. Die auf diese Weise 

25 gefundenen Abhangigkeiten zwischen Anweisungen sind Datenab- 
hangigkeiten. Befindet sich ein betrachteter Knoten in einem 
Block, dessen AusfOhrung von einer Entscheidung direkt ge- 
steuert wird, so stellt dies eine Kontrollabhangigkeit dar. 
FUr die prSdikativen Referenzen der in der Entscheidung be- 

30 teiligten Variablen werden Knoten mit entsprechenden Defini- 
tionen - also Datenf luBabhangigkeiten - rekursiv gesucht, die 
weitere Kontrollabhangigkeiten besitzen. 

Fig. 5b zeigt den zu dem Aus fall element gehorenden Slice 520 
35 mit entsprechenden Kontrollkanten und Datenf IxiBkanten. 



wo 00/75780 



PCT/DEOO/01001 



14 

Fig. 5c zeigt den Fehlerbaum 540 ftir das vorgegebene Ereignis 
"die dritte Variable i ist vor der 6. Anweisung fehlerhaft" 
541. 

5 Folgende Ereignisse ftihren in INKLUSIV-ODER-Verkntipfiing 542 
zu dem fehlerhaften Ereignis 541: 

- eine UND-Verknapf xing 543 der Ereignisse, dafi die Entschei- 
dung gemafl der dritten Anweisxing 504 wahr ist (Element 
544) und einem Ergebnis einer INKLUSIV-ODER-VerknUpfung 

10 545 der Ereignisse, daB die vierte Anweisimg 505 fehler- 

haft ist (Element 546) und/oder die erste Variable j nach 
der ersten Anweisung 502 fehlerhaft ist (Element 547); 

- eine UND-VerknUpfung 550 der Ereignisse, daB die Entschei- 
dung gemaB der dritten Anweisung 504 falsch ist (Element 

15 551) mit einem Ergebnis einer INKLUSIV-ODER-Verkntipf ung 

552 der Ereignisse, dafi die ftinfte Anweisung fehlerhaft 
ist (Element 553) und/oder daB die erste Variable j nach 
der ersten Anweisung 502 fehlerhaft ist (Element 554); 

- eine INKLUSIV-ODER-Verkntipfung 560 der Ereignisse: Die 
20 Entscheidung gem^B der dritten Anweisung 504 ist fehler- 
haft (Element 561) xind/oder die zweite Variable k ist nach 
der zweiten Anweisung 503 fehlerhaft (Element 562) . 

2 5 Mehrf ach-Auswahlelement 

Ein Mehrfach-Auswahl element als Ref erenzelement kann nach dem 
oben beschriebenen Schema durch Aufbrechen der Mehrfachaus- 
wahl in eine Kaskade von zweiseitigen Auswahlelementen, die 
30 gemaB dem oberen Vorgehen bearbeitet werden, behandelt wer- 
den, urn somit einen Fehlerbaum fUr ein Mehrfach- 
Aus wahl element zu ermitteln. 



35 Schleife 
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Die Fig. 6a bis Fig*6c zeigen fUr das Ref erenzelement einer 
Schleife einen Fehlerbaum 601 (vgl. Fig, 6a), den entsprechen- 
den Slice 620 (vgl. Fig. 6b) sowie den zugeh5rigen Fehlerbaiom 
640 (vgl. Fig. 6c) . 

5 

Der KontrollfluBgraph 601 fUr ein Schleif enelement weist fol- 
gende sieben Anweisungen auf : 

- Eine erste Anweisiing 602, mit der einer erste Variable i 
der Wert 0 zugeordnet wird (i := 0), 

10 - eine zweite Anweisung 603, mit der einer zweiten Variable 
j ein Wert frei zugeordnet wird (j ...)/ 

- eine dritte Anweisiang 604, durch die einer dritten Varia- 
ble k ein weiterer Wert frei vorgegeben wird (k := ...), 

- eine vierte Anweisung 605, die als Schleif enanweisving eine 
15 Bedingung angibt, dafi eine fOnfte Anweisung sowie eine 

sechste Anweisung solange durchgefUhrt werden, solange der 
Wert der zweiten Variablen j > 0 ist (WHILE j > 0 DO) , 

- eine fOnfte Anweisung 606, in der der ersten Variable i 
ein Wert zugeordnet wird, der sich ergibt aus der Stunme 

20 des bisherigen Werts der ersten Variable sowie dem Produkt 

aus der zweiten Variable und der dritten Variable 
(i := i + k * j) , 

- eine sechste T^weisung 607, durch die der zweiten Variable 
j ein Wert zugewiesen wird, der sich ergibt durch Vermin- 

25 derung des urspriinglichen Werts der zweiten Variable j um 

den Wert 1 (j := j - 1) , 

- eine siebte Anweisung 608, in der die erste Variable i in 
vorgebbarer Weise weiterbearbeitet wird (... :-i ...). 

30 Fig. 6b zeigt den entsprechenden Slice 620 zu dem in Fig. 6a 
dargestellten Kontrollf luBgraphen 601 mit zugehorigen Kon- 
trollf luBkanten und Datenf luBkanten. 

Der in Fig. 6c dargestellte Fehlerbaum 640 wird gebildet ftir 
35 das vorgegebene Ereignis 641, dafi die "erste Variable i vor 
der siebten Anweisung fehlerhaft" ist. 
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Der Fehlerbaum 640 ergibt sich durch INKLUSIV-ODER- 
Verkniipfxang 642 folgender vier Ereignisse: 

- Ein erstes Ereignis 643, das beschreibt/ daB die erste Va- 
riable i nach der ersten Anweisung 602 fehlerhaft ist, 

5 - eine UND-VerJcntipfung 644 aus den Ereignissen, dafi der 

Schleif enriampf der Schleife mindestens zweimal durchlaufen 
worden ist (Element 645) und dem Ereignis, daB die sechste 
Anweisung 607 fehlerhaft ist (646), 

- eine UND-Verkniipfung 650 des Ereignisses, daB der Schlei- 
10 fenrimpf mindestens einmal ausgeftihrt wurde (Element 651) 

iind einer INKLUSIV-ODER-Verknupfxing 652 folgende vier Er- 
eignisse: 

a) die ftinfte Anweisung 606 ist fehlerhaft (Element 653), 

b) die erste Variable i ist nach der ersten Anweisung feh- 
15 lerhaft (Element 654) 

c) die zweite Variable j ist nach der zweiten Anweisung 
fehlerhaft (Element 655) , 

d) die dritte Variable k ist nach der dritten Anweisung 
fehlerhaft (Element 656), 

20 - eine INKLUSIV-ODER-Verkniipfung 660 folgender drei Ereig- 
nisse: 

e) die Entscheidung gemaB der vierten Anweisung 605 ist 
fehlerhaft (Element 661), 

f ) die zweite Variable j ist nach der zweiten Anweisung 
25 603 fehlerhaft (Element 662), 

g) eine UND-Verkntipfung 663 der Ereignisse, daB die sech- 
ste Anweisung fehlerhaft ist (Element 664) mit dem Er- 
eignis, daB der Schleif enrumpf mindestens einmal durch- 
laufen worden ist (Element 665) . 



30 



Die oben beschriebenen Fehlerbaume, die den einzelnen Refe- 
renzelementen zugeordnet sind, sind in dem Speicher 102 als 
Fehlerbaume 115 gespeichert. 
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Fig. 7 zeigt einen Kontrollf lufigraphen 700 zu folgendem Compu- 
te rpro gramm : 

input (n) ; 
5 input (a) ; 
max:=0; 
s\am:=0; 
i:=2; 

WHILE i =n DO 
10 IF max < a[i] 

THEN max:= a[i] 
sum:= sum + a[i] 
i:= i + 1 
avr:= sum/n; 
15 output (max) ; 
output (avr) ; 

Zu dem in Fig. 7 dargestellten Kontrollf lufigraphen 700 mit 13 
Anweisungen (Bezugszeichen 1, 2, 3, .../ 13) zeigt Fig. 8a den 
20 zugehorigen Slice 800 zu der Variablen max und Fig. 8b den zu- 
gehorigen Slice 810 zu der Variablen avr. Die Numerierung der 
einzelnen 7\nweisungen in den Slices entspricht der Numerie- 
rung der einzelnen Anweisungen in dem Kontrollf lufigraphen 700 
aus Fig. 7. 

25 

Fig. 9 zeigt den Slice 900 ftir die Variable avr, wie er in 
Fig. 8b dargestellt ist- Die Struktur des in dem oben darge- 
stellten Programm enthaltenen Schleif enelements ist durch 
Fettdruck hervorgehoben. Diese Struktur entspricht dem in 
30 Fig. 6b dargestellten Slice ftir ein Schleif enelement , 

Ein Gesamtf ehlerbaum 1000 ftir das oben dargestellte Computer- 
programm ist in Fig. 10 dargestellt. Der Gesamtf ehlerbaum ftir 
das Computeirprogramm wird durch Instantiieren des entspre- 
35 chenden Fehlerbaums, der dem Refer enzelement zugeordnet ist, 
das dem ausgewShlten Programmelement entspricht, erzeugt. 
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Durch rtickwarts gerichtetes Vorgehen ausgehend von dem vorge- 
gebenen unerwiinschten Ereignis wird somit iinter Verwendung 
der den Ref erenzelementen zugeordneten Fehlerbaume der Ge- 
samtf ehlerbaim 1000 ermittelt. 

5 

In Fig. 10 ist der Fehlerbaum 1000 zu dem Ereignis ^ dafi "die 
Variable avr vor der dreizehn1:en Anweisiing fehlerhaft" ist 

(Element 1001) . Die Variable avr kann vor der dreizehnten An- 
weisung 13 fehlerhaft sein aufgriind mindestens eines der fol- 
io genden drei Ereignisse, wie dies auch in dem in Fig. 9 darge- 
stellten Slice 900 ftir die Variable avr dargestellt ist 

(INKLUSIV-ODER-Verkniipfung 1002) : 

- Eine Eingangsvariable n ist nach der ersten Anweisung 1 
fehlerhaft (Element 1003)/ 

15 - die elfte Anweisung 11 ist fehlerhaft (Element 1004), 

- der Wert der Variablen siom vor der elf ten Anweisiing 11 ist 
fehlerhaft (Element 1005) . 



Die Varicible stm ist vor der elf ten Anweisung 11 fehlerhaft 
20 (Element 1005), wenn mindestens eines der folgenden Ereignis- 
se erfUllt ist (INKLUSIV-ODER-Verknupfung 1006) : 

- Die Variable sum ist nach der vierten Anweisung 4 fehler- 
haft (Element 1007) , 

- eine UND-Verknupfung 1008 des Ereignisses, daB mindestens 
25 zweimal der Schleif enrxmpf ausgefiihrt worden ist (Element 

1009) mit dem EreigniS/ daB die zehnte Anweisung 10 feh- 
lerhaft ist (Element 1010) , 

- eine UND-Verkntipfung 1011 des Ereignisses, daB mindestens 
einmal der Schleif enrumpf ausgefiihrt worden ist (Element 

30 1012) mit dem Ergebnis einer INKLUSIV-ODER-Verkntipfung 

1013 folgender vier Ereignisse: 

a) die nexinte Anweisung 9 ist fehlerhaft (Element 1014)^ 

b) die Variable sum ist nach der vierten Anweisiang 4 feh- 
lerhaft (Element 1015) , 

35 c) die Variable i ist nach der ftinften Anweisung 5 fehler- 

haft (Element 1016) , 
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d) die Variable a ist nach der zweiten Anweisung 2 fehler- 
haft (Element 1017) , 

- eine INKLUSIV-ODER-VerknUpfxing 1018 folgender Ereignisse: 

e) die Entscheidvmg gemaB der sechsten Anweisung ist feh- 
5 lerhaft (Element 1019), 

f ) die Variable i ist nach der fUnften Anweisung fehler- 
haft (Element 1020) , 

g) die Variable n ist nach der ersten Anweisiing fehlerhaft 
(Element 1021) , 

10 h) eine UND-Verkniipfung 1022 des Ereignisses, dafi die 10. 

Anweisung fehlerhaft ist (Element 1023) mit dem Ereig- 
nis, dafi mindestens einmal der Schleif enr\ampf ausge- 
ftihrt worden ist (Element 1024) . 

Der Fehlerbaiam 1000 aus Fig. 10 wird zur anschaulicheren Dar- 
stellung dahingehend ver^ndert, dafi Ereignisse, die in dem 
Fehlerbaum 1000 mehrfach dargestellt sind, zu einem Knoten 
eines Ursache-Wirkungs-Graphen 1100 (vgl. Fig. 11) zusammenge- 
fafit werden. 

Auf den in Fig. 10 dargestellten Fehlerbaum 1000 wird ein Feh- 
lerbaumanalyseverfahren, wie in [5] beschrieben, angewendet, 
wodurch eine Analyse des Computerprogramms hinsichtlich eines 
vorgegebenen unerwOnschten Ereignisses analysiert wird. 

Im weiteren werden Alternativen und weitere Anwendungsm5g- 
lichkeiten des oben beschriebenen Aus fUhrungsbei spiels darge- 
stellt. 

30 Der mit dem oben beschriebenen Verfahren erzeugte Gesamtfeh- 
lerbaum kann zu verschiedenen Zwecken eingesetzt werden: 

- Beschreibung der Fehlererzeugung bzw. Fehlverhaltenspropa- 
gation durch einen Teil eines Computerprogramms im Rahmen 
einer Sicherheitsanalyse oder eine Zuverlassigkeitsanalyse 

35 des Computerprogramms, 

- Analyse von Sof twaref ehlermechanismen, beispielsweise im 
Rahmen einer Testf allgenerierung . 



20 
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20 

Im weiteren ist ein Computerprogramm in der Programmierspra- 
che C++ angegeben, mit dem das Verfahren gemafi dem Ausftih- 
riangsbei spiel realisiert ist: 



« include "AS GraphKante . h" 
a * 

iinclude <iostreaiD> 
D 



□ 
□ 

15 O 



□ 



05tream& opera t.or « < ostreain& os, const GraphKanteC & Kante) { 
OS « Kante. Kan tenTyp; 
return os; 

) 



////////////////////////////////////////////////////////////////////////////////////// 
// Klasse 2ur Erzeugung von Kant en im Slice-Graph. 
// Es gibt 2wei Arten von Kanten: 
// 1. Kontrollflufi-Kanten KFK 

25 // 2. DatenfluA-Kanten DFK 

// Auch diese Klasse erfflllt die nice-Anf orderungen fQr die STL. 

// /////////////////////////////////////////////////////////////////////////////////// 
// 199*7-09-12 Andreas Stelnhorst 

////////////////////////////////////////////////////////////////////////////////////// 
30 #ifndef _GraphNodeHeader 
#define _GraphNodeHeader 



« include <iostreain> 

« include "KFGListNode .h" 

using namespace std; 

class GraphNodeC : public KFGListNodeC { 
public: 



//GraphNodeCO {}; 
friend ostreamfi operator « { ostream& os, const GraphNodeCi Node); 

45 ); 

•endif 

50 ////////////////////////////////////////////////////////////////////////////////////// 
□ 

// Klasse zur Erstellung eines Slice. Dieser Klasse wird eln leeres Objekt 
□ 

// der Klasse Graph vererbt. 
55 □ 

// Die Ecken des Graphen/Slice haben dieselbe StruKtur wie die Listen im KFG. 
// Die Kanten sind von Typ KantenTypT; eine Klasse GraphKanteC lieB sich aus 
// far mich unersichtlichen GrOnden nicht in die Klasse Graph einbinden, 

60 // /////////////////////////////////////////////////////////////////////////////////// 
// 199T-09-12 Andreas Stelnhorst 

////////////////////////////////////////////////////////////////////////////////////// 

#ifdef _SliceHeader 

ielse 

65 «define _SliceHeader 

# include "graph. h* 
ff include •'AS_GraphKante , h" 
//#include "AS_GraphNode.h" 
70 # include "KFGListNode.h" 
«include "KreList-h" 



//using namespace std; 

//typedef enum {DFK, KFK) KantenTypT; 
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class SliceC : public Graph<KFGListNodeCr GraphKanteO { 
public: 

SliceC () (}; 

void sliceForLoops(KFGListC & L2, KFGListC: : iterator liOOPIT); 
KFGListC: : iterator defineVariableToSl ice (KFGListC & L2); 
//void buildTestGraphi KFGListC & L2); 

void findAllDefs( KFGListC & LI, KFGListC: : iterator ITER); 

KFGListC: : iterator findUpper Limit (KFGListC & LI, KFGListC: : iterator ITER, 
KFGP UseListC: : iterator PUSEIT); 

KFGListC: : iterator findLower Limit (KFGListC & LI, KFGListC: : iterator ITER, 
KFGListC: : iterator UPPERLIMIT) ; 

KFGListC: : iterator f indLower Limit FromCUse (KFGListC & LI, KFGListC: ; iterator ITER, 
KFGListC: : iterator UPPERLIMIT) ; 

KFGListC: : iterator findUpper Limit FromCUse (KFGListC & LI, KFGListC: : iterator ITER, 
KFGUseListC: : iterator USEIT) ; 

int checkForNodes(int NodeNumber ) ; 

void KFKPUseToCUse (KFGListC: : iterator PUSEIT, int Schleif enEnde ) ; 
void findDefToCUse (KFGListC & LI, KFGListC: : iterator ITER); 
void defInLoop( KFGListC & LI, KFGListC; : iterator ITER); 
void startBuiidSlice (KFGListC & LI); 
void sliceAusgeben{ ) ; 

); 

lendif 

i/ufinufuu/in/nu/j/u/fin////u/nnn/n//uuuunnnnninnn 

if Mit einigen Anderungen Obernommen aus "Die C++ Standard Template Library". 

// Tempi at e-Klasse Graph zur Erstellung von gerichteten oder ungerichteten 
// Graphen. Der Graph besteht aus einem Ve)ctor E fOr alle Ecken. Jedes 
// Vektorelement besteht wiederum aus einem Paar: der Ecke und der Menge der 
// Kachfolger. 

// Die Menge der Nachfolger wird durch den STL Datentyp map dargestellt; der 
// SchlOssel zu einem Kantentyp/Kantenwert ist die Nummer einer nachfolgenden 
// Ecke. 

^/n f n n n rn n f n n / u n n u f n f u n n u u n u fj / f n u / / n n f u / u / 1 n m i f f 

#ifndef _graphHeader 

Idefine "graphHeader 

#include <assert.h> 

f include <map> 

# include <stack> 

# include <vector> 

f include "checkvec.h" 

^include <iostream> 

« include "AS_GraphNode . h* 

using namespace std; 

// Leere Parameterklasse mit Mindestsatz von Qperationen, 
// falls keine Kantengewichte benfitigt werden, 
struct Empty 

{ 

public: 

Entity (int-0) ( ) 

bool operator< (const Eraptyfi ) const { return true;) 

); 

// Empty-Operationen, damit Ein-Ausgabe allgemein formuliert 
// werden kann 

//ostreams operator« ( ostream& os, const Empty&> { return os; } 
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//istream& operator» ( istream& is, Emptyfi ) { return is;} 

t:eir^late<class Eckentyp, class Kantientyp> 
class Graph 

{ 

public i 

typedef inap<int,Kantentyp, less<int> > Nachfolger; 
typedef pair<Eckentyp, Nachfolger> Ecke; 
t-ypedef checkedVector<Ecke> Graphtyp; 

//typedef vector<Ecke> Graphtyp; 
typedef Graphtyp: : iterator iterator; 
typedef Graphtyp: : cons t_it era tor const_iterator; 

Graph (bool g, ostreams os « cerr) 
: gerichtet(g), pOut(4os) {} 

Graph ( ) { } 

size_t sizeO const { return C*size(); } 

bool istGerichtet ( ) const { return gerichtet;} 
iterator begin () { return C.beginO;} 

iterator end() { return C.end{);} 

Ecke& operator [ Mint i) { return C[il;} 

size_t AnzahlKanten ( ) ; 

int insert (const Eckentypi e); 

void insert (const Eckentyp* el, const Eckentyp& e2, 

const Kantentyp& Wert); 
void verbindeEcken(int el, int e2, // Ober Eckennummern 
const Kantentyps Wert); 
void setgerichtet (bool wert); // neue Methode fQr gerichtete/ungerichtete Gra- 
ph en, 

// die aber nicht ver- 

wendet wlrd. 

void check <ostreeun& * cout); 

void ZyklusUndZusammenhang (ostreaiD& = cout); 

private: 

bool gerichtet; 

Graphtyp C; // Container 

ostreain* pOut; 

); 



//Funktion, die Qberprtift, ob es sich um einen gerichteten oder ungerichteten 

//Graphen handelt, und die Anzahl der Ecken und Kanten ausgibt. 

tenq3late<class Eckentyp, class Kantentyp> 

void Graph<Eckentyp,Kantentyp>: : check (ostreami os) 

{ 

OS « "Der Graph ist "; 

//if (!istGerichtet() ) 

// OS « "un"; 

OS « "gerichtet und hat " 

« size() « *• Knoten und " 

« AnzahlKanten! ) « " KantenXn"; 
//ZyklusUndZusanmenhangtos} ; 

} 



//Methode, die einen Wert setzt, ob der Graph gerichtet oder ungerichtet ist. 

tenqplate<class Eckentyp, class Kantentyp> 

void Graph<Eckentyp,Kantentyp>: : setgerichtet (bool wert) 

{ 

gerichtet «= wert; 

) 



//Funktion berechnet die Anzahl der Kanten in Graph 
teraplate<class Eckentyp, class Kantentyp> 
size_t Graph<Eckentyp, Kantentyp> : : AnzahlKanten ( ) 

{ 

size_t Kanten « 0; 
iterator tenp * begin(l; 
while (teirp !- end()) 

Kanten +«= ( *tenip++ ). second. size () ; 
//if ( !gerichtet) 
// Kanten 2; 



wo 00/75780 



PCT/DEOO/01001 



23 

return Kanten; 

) 

//EinfOgen einer Ecke in den Graphen, falls diese noch nicht vorhanden ist. 

reii^lat.e<class Eckentyp, class Kanl:ent:yp> 

int Graph<EclcentyprKantentyp>: : insert (const Eckentypt e) 

{ 

for (int i « 0; i < sizeO; ++i) 
if (e =« C(i] .first) 
return 1; 

// falls nicht gefunden, einfuegen: 
C-push__back (Ecke (e, NachfolgerO )); 
return si ze ( ) -1 ; 



//EinfOgen einer Kante in den Graphen, indem zuerst die Ecken eingefOgt werden. 
tenplate<class Eckentyp, class Kantentyp> 

void Graph<Eckentyp,Kantentyp>: : insert (const Eckentypi el, 

const Eckentypi e2, 
const Kantentyp& Wert) 

{ 

int posl « insert (el); 
int pos2 « insert (e2); 
verbindeEcken (posl, pos2, Wert); 



//Verbinden der beiden neu eingefOgten Ecken durch eine Kante. 
teiiq3late<class Eckentyp, class Kantentyp> 
void Graph<Eckentypr Kantentyp> : : verbindeEcken ( 

int posl, int pos2, const Kantentypfi Wert) 

{ 

{C [posl] -second) {pos2] - Wert; 

//if ( !gerichtet) // automatisch auch Gegenrichtung eintragen 
// (CI pos21 .second) (posl) « Wert; 



/♦ 2yklusUndZusanimenhang( ) arbeitet mit der Tiefensuche. 

Im Gegensatz zu CLR S. 47 8 wurde nicht mit der Rekursion 
gearbeitet, well bei dieser Stack-Overflow bei groBen Graphen 
(zB. MILES. DAT bei mehr als 40 Knoten) auftrat. 
Die Nachbildung der Rekursion durch eigenen Stack 
ermCglicht die Verarbeitung der gesamten Datei 

MILES.DAT (128 Knoten). Die Stacktiefe entspricht der Kantenanzahl 
+ 1 bei ungerichteten Graphen. 

•/ 

tenqDlate<class Eckentyp, class Kantentyp> 

void Graph<Eckentyp, Kantentyp>: : 2yklusUnd2usainmenhang(ostream& os) 
{ 

int Zyklen » 0; 

int Koniponentenanzahl = 0; 

stack<int, vector<int> > EckenStack; // zu besuchende Ecken 

// alien Ecken den Zustand nichtBesucht zuordnen 
enum EckStatus (nichtBesucht, besucht, bearbeitet); 
vector<EckStatus> Eckenzustand (size ( ) , nichtBesucht) ; 

// alle Ecken besuchen 

for (int ± ^ 0; i < sizeO; ++i) 

if (Eckenzustand! i] «— nichtBesucht) 

{ 

Koniponentenanzahl ++ ; 

// auf dem Stack zwecks Bearbeitung ablegen 
EckenStack . push ( i ) ; 

// Stack abarbeiten 

while ( 1 EckenStack. ezi$)ty( ) ) 

{ 

int dieEcke « EckenStack . top () ; 
EckenStack. pop { ) ; 

if (Eckenzustand [dieEckeJ *^ besucht) 

Eckenzustand [dieEcke] bearbeitet; 
else 
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if (EcJcenzustand(dieEckel nichtBesucht ) 
{ 

EckenzustandldleEcke} » besucht; 

// neue Ecke, fOr bearbeitet-Kennung vormerken 

Eckensrack.push(die£cke ) ; 

// Nachfolger vormerken: 

Graph<£ckentyp, KanUentyp> : : Nachfolger : : it.erat,or 
start. » operator E ] (dieEcke) .second. begin! ) , 
ende » operator [] (dieEcke) .second. end () ; 

while (start !«= ende) 

{ 

int Nachf «= (♦start) . first; 

if (£ckenzustand[Nachf ] besucht) 

{ 

++Zyklen; // hier war schon jemand! 
(*pOut) « "mindestens Ecke ** 
« operator [ ] (Nachf) .first 
« " ist in einero ZyklusVn"; 

} 

if (Eckenzustand [Nachf) «» nichtBesucht) 

EckenStack.push (Nachf) ; 
++start; 

} 

} 

) // Stack Exrpty? 
} // forO if (Eckenzustand. . . 

if (gerichtet) 

{ if (Konponentenanzahl ■« 1) 

OS « "Der Graph ist stark zusaxnmenhnFngend.Xn**; 
else 

OS « "Der Graph ist nicht oder schwach * 
"zusammenh^ngend . \n" ; 

) 

else 

OS « "Der Graph hat * 

« Kon^nentenanzahl 

« " Koinponente ( n ) . " « endl ; 

OS « "Der Graph hat "; 
if (Zyklen 0) 
OS « "keine 
OS « "Zyklen." « endl; 



//Ausgabe des Graphen. 

tempi ate<class Eckentyp, class Kantentyp> 
ostreamfc operator« ( ostream& os, 

Graph<EckentyprKantentyp>& G) 

of stream Ziel ( "FaultTree . uwg" ) ; 

ostreain_iterator<uwgknotenO POSIT ( Zi el } ; 

ostrearo_iterator<uwgknotenO P0SIT2 ( Ziel ) ; 
// Anzeige der Ecken mit Nachfolgern 

Ziel « -%%UWG" « endl « "\"V0. l\"-\"Fehlerbauin\"-\"A.Steinhorst\'*" « endl « 
«%%BEGIN" « endl; 

for (int i «= 0; i < G.sizeO; ++i) 
{ 

POSIT++ = G[i). first; 
/*os « G(il. first « " <"; 
Graph<Eckentyp, Kantentyp>: :Nachfolger: : iterator 
startN « G[i) .second. begin( ) , 
endeN = G [ 1 ) . second . end ( ) ; 
while (StartN endeN) 
{ 

OS « G( (*startN) . first) . first « • • // Ecke 

« (* StartN) .second « ' // Kantenwert 

♦POSIT2++ = GI (*startN) .first) .first; 
//*KANTEIT++ « (*startN) .second; 

++startN; 

) 

OS « ">\n";*/ 

♦POSIT++; 

) 

for (int u = 0; u < G.size(); ++u) { 

Graph<Eckentyp,Kantentyp>: :Nachfolger: ; iterator 
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startN = G[ul .second. begin () , 

endeH » G[u) .second.endf } ; 
while (StartN l«» endeN) ( 

2iel « ■%%EDGE:" « GJ u] . f irst .getGatterldent ( ) « 

« GI t*startN) . first J -first. getGatterIdent( ) « "/O;* « endl; 

++startN; 

) 

2iel « "%%PRCfflSLIST*' « endl « ••%%END" « endl; 
return os; 

) 

fendif 

lifdef _KFGDef Header 
□ 

felse 
□ 

#define _KFGDef Header 
□ 

D 

#include <string> 
□ 

#include <iostreain> 
□ 

□ 

using namespace std; 
O 



□ 

o 
□ 
□ 
□ 
□ 
□ 



typedef char StringT [2561; 

class KFGDefC .{ 
private: 

StringT Def; 
int ScopeLevelD; 
public: 

KFGDefCO < strcpy (Def, " — unknown — "}; 

ScopeLevelD O; } ; 

KFGDefC (char _Def IJ, int _ScopeLevelD) 

{ strcpy (Def, _E>ef); 
ScopeLevelD = 

_ScopeLevelD; ) ; 

void setDef(char _Def ()) { strcpy (Def, _Def); ) 

char* getDefO { return Def; ) 

int getScopeLevelD( ) { return ScopeLevelD; } 

bool operator (const KFGDefCi other) const 

{ return ( (strcmpt Def , 

other. Def) « 0) 

& ( Scope- 

LevelD = other . ScopeLevelD) ) ; }; 

bool operator (const KFGDefCs other) const 

{ return ! (♦this =- 

other) ; ) ; 

bool operator < (const KFGE>efCi other) const 

{ return (strcTnp(Def , 

other. Def) < 0); ); 

bool operator > (const KFGDefC& other) const 
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( return (strcinp{Def , 

other. Def) > 0); ); 

friend ostreaiD& operator « ( ostreami os, const KFGDefC& Node); 

}; 

«endl£ 

/uuutinnn/f/u/nn/u/uuiHnufnn/nunuufnfUU/nuununuu/ft// 
□ 

// Klasse far Hilfsliste, urn daraus einen KFG zu erstellen. 
// Dlese Klasse erfUllt die nice-Anforderungen fUr die STL; 
// d.h- far eine Klasse T gilt 

// 0. Sie unterstatzt den Copy-Konstruktor T (const Tt), 
// 1. den Zweisungsoperator T& operator^ (const T& J r 

// 2. den Vergleichsoperator bool operator"^ (const T, &const T& ) und 

// 3. den Ungleichoperator 

// in einer Weise so dafi gilt: 

// (a) { TRUE ) T a(b) {a «= b> 

// (b) { TRUE ) a « b {a b) 

// (c) { a «— a} 

// (d) { a =- b <«> b a ) 

// (e) { {a -= b) AND ( b c ) «> (a c) } 
// (f) { a != b <•«=> NOT ( a-» b) ); 

// AuSerdem sind alle Funktionen, insbesondere getName equality preserving, d.h. 

// (g) { a «= b == > a. getName () «= b. getName () ) 

// 

// (C) 199*? Siemens AG 

// /////////////////////////////////////////////////////////////////////////////////// 
// 1997-08-25 Andreas Steinhorst 

nn/f////fnnnn//fn/n//unijn//nn/n//nnf/u/u////nuun//nnu/n/uf 

#ifdef _KFGLineNodeHeader 
#else 

#define _KFGLineNodeHeader 

« include <string> 
#include <iostream> 

using namespace std; 

typedef char StringL [1000]; 

class KFGLineNodeC { 
private: 

StringL Name; 
int LineNumber; 

public: 

KFGLineNodeC ( ) { strcpy (Name, " — unknown — 

LineNumber = 0 



-); 

); 

0; ) ; 



KFGLineNodeC (char _Name I]) { strcpy (Name, _Name) j 
KFGLineNodeC (char _Name [], int ^LineNumber) 



_Name ) ; 
LineNumber; } ; 



LineNumber 

{ strcpy (Name, 
LineNumber « 



void setName(char _Name (1) { strcpy (Name, _Name); ); 

char* getName () { return Name; >; 

int getLineNumber( ) { return LineNumber; ) ; 

bool operator (const KFGLineNodeCfi other) const 

{ return 

( ( strcnp (Name, other. Name) == 0) 
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& (LineNumber = 

other.LineNuniber) ); }; 

bool operator !•» (const KFGLineNodeC& other) const 

( return ! (♦this 

other); ); 

bool operator < (const KFXSLineNodeCfc other) const 

{ return 

(strcmpCName, other. Name) < 0); ); 

bool operator > (const KFGLineNodeC& other) const 

{ return 

(strcmp(Name, other .Name) > 0); ); 

friend ostreamfi operator « ( ostreamfi os, const KFGLineNodeC& Node); 

); 

«endif 

//nuuu//fu//funf//unufuunufUf/u/nfnuunnNnuif//nunn//nfn 

// Klasse fOr die Liste, die den KFG darstellt. 

// Diese Klasse erfOllt die nice-Anforderungen fQr die STL; 

// d.h. fQr eine Klasse T gilt 

// 0. Sie unterstOtzt den Copy-KonstruJctor T (const T&), 
// 1. den Zuweisungsoperator T& operator* (const T& ) , 

// 2- den Vergleichsoperator bool operator's^ (const T, &const Ti ) und 

// 3. den Ungleichoperator 

// in einer Weise so daS gilt: 

// (a) { TRUE ) T a(b) {a -= b) 

// (b) { TRUE ) a = b {a — b} 

// (c) { a a) 

// (d) { a «= b <=> b -=« a } 

// (e) { (a == b) AND ( b •= c ) =«> (a c) ) 

// (f) { a != b <=^> NOT ( a«« b) }; 

// 

// AuBerdem sind alle Funktionen, insbesondere getStatement equality preserving, d.h. 

// (g) { a -= b > a - getStatement { ) b. getStatement { ) } 

// /////////////////////////////////////////////////////////////////////////////////// 
// 199T-09-01 Andreas Steinhorst 

////////////////////////////////////////// 

Sifdef _KFGListHeader 
ielse 

#define KFGListHeader 



^include <string> 
#include <iostreain> 
« include <stdio.h> 
Sinclude <list> 
Sinclude <fstreain> 
#include <iterator> 
#include "KFGListNode.h" 
#include "KFCToicenList .h" 
#include -KFGProgList.h" 



using namespace std; 



class KFGListC : public list<KFGListNodeC> { 

int An2ahl_Defs, Anzahl_Uses, Anzahl_P__Uses^ Anzahl_De)clarationen; 

int Schleif enentscheidungen, Entscheidungen, Zaehlschleif enentscheidungen; 

int Anweisungen; 

public: 

KFGListC () {); 

void TokenList2KFGList(KFGTokenListC & LI ) ; 
void KnotenNuimnern ( ) ; 

void Knotenldentifizierer (KFGListC: : iterator KFG); 
void ListeAusgeben( ) ; 
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void addLinelnToLlst ( ) ; 

void addLineToKFG(KFGProgListC & LP); 

int zaehleDeJclarationen(KFX3TokeiiListC & TL); 

void basisgroessenlnDaUei ( ) ; 

}; 

class KFGDefListC : public list<KFGDefO {); 
class KFGUseListC : public list<KFGUseO (); 
class KFGP_UseListC : public list<KFGUseO {>; 
«endif 

#include <string> 
□ 

i include <iost:reain> 

# include <list> 

i include "KFGNode.h" 

using namespace std; 

typedef list<KF04odeO KFGListeT; 
extern void KFGListeAusgeben (KFGListeT) ; 

fu/nnfnn/HNf//n/nNfnntnnunn/nnnfUiinnnHn/nufun/ff/nnn 
□ 

// Klasse fQr die Knoten im Kontrollf luBgraph. 

// Diese Klasse erfailt die nice-Anf orderungen fCr die STL; 

// d.h. far eine Klasse T gilt 

// 0. Sie unterstOtzt den Copy-Konstruktor T (const T&), 
// 1. den Zuweisungsoperator T& operator* (const T&)r 

// 2. den Vergleichsoperator bool operator^ (const T, iconst T&) und 

// 3- den Ungleichoperator !• 

// in einer Weise so daB gilt: 

// (a) { TRUE ) T a(b) {a »• b) 

// (b) t TRUE } a = b {a b) 

// (c) { a a) 

// (d) { a b <— > b — a } 

// (e) { (a »= b) AND ( b c ) => (a c) } 
// (f) { a != b <-=> NOT ( a«* b) ); 

// AuBerdem sind alle Funktionen, insbesondere getstatement equality preserving, d.h. 

// (g) { a»«b —=> a.getStatement ( ) b- getstatement () ) 

// nninfn/i/nnunn//fnn/nnufnunfnnnnnnnnnnu/nnu/n/uin 

// 1997-08-25 Andreas Steinhorst 

nnn/intnufnnnnnuf/iunnutun/nnfnn/utnn/unntn/nfnnHtiii 

iifdef _KFGNodeListHeader 
#else 

#define _KFGNodeListHeader 

#include <string> 
#include <iostreani> 
#include <list> 
# include "KFGUse.h" 
#include "KFGDef.h" 



using namespace std; 

typedef char StringT (2561; 
typedef char CodeLineT ( 256) ; 
typedef enum 

{NO, LC,BL/EL,IFC,BTh,ETh,BEl,EEl,OP,DOWL,DOWLC,SmTCH,CASE, ENIX:yiSE, BDEFA^^ 
AK) KFGNodeTypeT; 

typedef enum {LOOP, THEN, ELSE, NONE) KnotenldentT; 

class KFGListNodeC { 



wo 00/75780 



PCT/DEOO/01001 



29 



protected: 
//private: 



static int DummyNodeNr; 
int NodeNr; 
int Level; 
int KnotenNr; 
int LineNr; 
StringT Statement; 
CodeLineT CodeLine; 
KFGNodeTypeT KFGNodeType; 
KnotenldentT Knotenldent 



public: 



list<KFGUseO Uses; 
list<KFGDefO Defs; 
list<KFGUseO P_Uses; 

KFGListNodeCC ) 

--"); 
NO; 

inyNodeNr++; 
NONE; 

ne, "—unknown — " } ; } ; 

KFGListNodeCC char _Statement [J, 
ment , _Statement ) ; 

^KFGNodeType ; 
niyNodeNr++; 

NONE; 

ne, " — unknovm — " ) ; }; 

KFGListNodeC(char ^Statement [], 

aent , _statement ) ; 

_KFGNodeType ; 
inyNodeNr++; 

NONE; 

ne, " — unknown—" ) ; ) ; 

KFGLi5tNodeC(char ^Statement I], 

_LineNr) 

ment , _Statement ) ; 

_KFGNodeType; 
myNodeNr++; 

NONE; 
LineNr; 



{ strcpy (Statement, " — unknown 

Level = 0; 
KF©*odeType = 

NodeNr » Dum- 

KnotenNr « 0; 
Knotenldent = 

LineNr * 0; 
strcpy (CodeLi- 



KFOiodeTypeT ^KFGNodeType ) 



{ strcpy (State- 
Level ■= 0; 

KFGNodeType = 

NodeNr - Dmn- 

KnotenNr « 0; 
Knotenldent » 

LineNr = 0; 
strcpy (CodeLi- 



KFGNodeTypeT _KFGNodeType, int _Level ) 

{ strcpy (State- 
Level ■= __Level; 
KFGNodeType « 

NodeNr = Dum- 

KnotenKr ■» 0; 
Knotenldent «= 

LineNr « 0; 
strcpy (CodeLi- 

KFGNodeTypeT _KFGNodeType, int _Level, int 

{ strcpy (State- 
Level *= _Level; 
KFGNodeType * 

NodeNr = EKwn- 

KnotenNr — 0; 
Knotenldent 

LineNr *= 
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ne, *— unJtnown— * ) ; }; 

void setStatement ( char _Stateinent I J ) 
ment , ^Statement ) ; ) ; 

void setCodeLine(char _CodeLine (]) 

ne, _CodeLine); }; 

void setKFGKnotenNuimner (int _KnotenNr) 

_Knot.enNr; } ; 

void setKnotenldent (KnotenldentT _Knot:enIdent ) 
_ICnotenIdent; } ; 

int getKnotenNummer ( ) 
char* getStatement ( ) 
char* getCodeLine ( ) 
int getLevel ( ) 
int getNodeNrO 
int getLineNr ( } 
KnotenldentT getKnotenldent ( ) 



strcpy (CodeLi- 



{ strcpy (State- 



{ strcpy (CodeLi- 



{ KnotenNr • 



{ Knotenldent " 

{ return KnotenNr; ) ; 

{ return Statement; }; 

{ return CodeLine; ); 
{ return Level; ) ; 

{ return NodeNr; ) ; 
{ return LineNr; }; 
( return Knotenldent; }; 



KF(»lodeTypeT getKFGNodeType t ) { return KFGNodeType; }; 

booX operator = {const KFGListNodeC& other) const 
( (St rcn^st Statement, other .Statement ) "= 0) 
other. Level) 
« other. KFGNodeType) 
other. NodeNr) ) ; ) ; 

bool operator (const KFGListNodeC& other) const 

" other); ); 

bool operator < (const KFGListNodeC& other) const 
(strcmpCStatement, other. Statement) < 0) ; }; 

bool operator > (const KFGListNodeCt other) const 
(streams (Statement, other .Statement ) > 0); ); 

friend ostrearofi operator « ( ostreamfi os, const KFGListNodeCfi Node); 

); 



{ return 

& (Level — 
& { KF^odeType 
& {NodeNr 

{ return ! (♦this 

{ return 

{ return 



«endif 

//#include <string> 
//# include <iostream> 
//«include "KFGList.h" 

//using namespace std; 



//class KFGListOpC : public KFGListeC { 
//public: 

// void KFGListOutiKFGListeT & L) 

// { 

// KFGListeT: : iterator I L.beginO; 

// whiled != L.endO ) 
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// cout « *I++ « • 'j 

ff cout « " sizeO « " « L.sizeO « endl; 

// ) 
//); 

funu//fu/n//nf/nnnNun/funn/nun/nnf/nnfu//f/ufn 

// Klasse far Hilffilister xjm daraus einen KFG zu erstellen. 

// Diese Klasse erfOllt die nice-Anf ordcrungen fOr die STL; 
// d.h. far eine Klasse T gilt 

// 0. Sie unterstQtzt den Copy-KonstruJctor T (const 
// 1. den Zuweisungsoperator T& operator^ (const T& J , 

// 2. den Vergleichsoperator bool operator™ (const T, &const T& ) und 

// 3. den Ungleichoperator I* 

//in einer Weise so dafi gilt: 

// (a) { TRUE ) T a(b) {a b) 

// (b) { TRUE ) a =. b {a — b) 

// (c) { a =- a) 

//(d) ( a — b b =- a ) 

// (e) { (a « b) AND ( b « c ) — > (a -* c) } 
// (f) { a b NOT ( a-=^ b) ); 

// Aufierdem sind alle Funktionen, insbesondere getName equality preserving, d.h. 

// (g) { a » b > a. getName () b. getName () } 

// 

// (C) 1997 Siemens AG 

// n/nuunftiunnfinnunnfnj/fnn/nnnnunfnfn//f/nunnifininff 

// 199'7-0B-25 Andreas Steinhorst - 

in u n n f u / / 1 / u t / f f i n n u u n i f / / f f n n / / / n n i / n / u / u f / n n n u n u n n t i / m u 

Sifdef _KFGNodeHeader 
ftelse 

idefine _KFGNodeHeader 

# include <string> 
#include <iostream> 

using namespace std; 

typedef char StringT [256 J; 

class KFGNodeC { 
private: 

StringT Name; 
int ScopeLevel; 

public: 

KR^IodeCO { strcpy (Name, un- 

known — -1; ScopeLevel = 0; 

/♦ cout « "NodeC 

erzeugt" « endl ; */); 

Kr(»IodeC(char ^Name () ) { strcpy (Name, _Name); 

ScopeLevel » 0; ) ; 

KF(^odeC(char Name []# int _ScopeLevel) 

" { strcpy (Name, 

ScopeLevel «= 

void setName(char _Name (1) { strcpy (Name, _Name) ; ); 

char* getName () i return Name; }; 

int getScopeLevel ( ) ( return ScopeLevel; ); 

bool operator (const KFGNodeCfi other) const 

{ return 

( (strcrm(Name, other. Name) == 0) 

& (ScopeLevel 

«= othe r. ScopeLevel) ) ; ); 

bool operator (const KFGNodeC& other) const 



_Name ) ; 

_S cope Level; ) ; 
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{ return ! (*this 

= other) ; > ; 

bool operator < (const KFGNodeC& other) const 

{ return (strcinp(Name, 

other. Name) < 0); ); 

toool operator > (const KFGNodeCi other) const 

{ return (strcinp(Naine, 

other. Name) > 0); }; 

friend ofitreaia& operator « ( ostreaia& os, const KFGNodeC& Node); 

}; 

#endlf 

«ifdef _KFa4odelHeader 
□ 

telse 
□ 

////////////////////////////////////////////////////////////////////////////////////// 
// Klasse fOr Hllfsliste, um daraus einen KFG zu erstellen. 
// Diese Klasse erfQllt die nice-Anforderungen fQr die STL; 
// d.h. far eine Klasse T gilt 

// 0. Sie unterstQtzt den Copy-Konstruktor T (const T&), 
// 1- den Zuweisungsoperator T& operator- (const T6), 

// 2. den Vergleichsoperator bool operator««= (const T, &ccnst T&) und 

// 3. den Ungleichoperator !* 

// in einer Heise so dafi gilt: 

// (a) { TRUE ) T a(b) {a »« b) 

// (b) { TRUE ) a « b (a -* b) 

// (c) { a — a) 

// (d) { a == b b -= a ) 

// (e) { (a — b) AND ( b «- c ) (a «= c) } 

// (f) { a !« b <=> NOT ( a«= b) }; 

// 

// Aufierdem sind alle Funktionen/ insbesondere getName equality preserving, d.h. 

// (g) { a <= b •«= > a.getNameO b. getName () ) 

// 

// (C) 1997 Siemens AG 
// 

// /////////////////////////////////////////////////////////////////////////////////// 
// 1997-08-25 Andreas Steinhorst 

////////////////////////////////////////////////////////////////////////////////////// 

iifdef _KFGNodelHeader 

#else 

#define KFGNodelHeader 

# include <string> 
# include <lostreain> 

using namespace std; 

typedef char StringT [256]; 

class KFGLlstNodeC { 
private: 

StringT Name; 
int ScopeLevel; 
list <KFGUseO Uses; 
list <KFGDefO Defs; 

public: 

KFGListNodeC( ) { strcpy (Name, " — un- 

known — "); ScopeLevel « 0; 

/♦ cout « "NodeC 

erzeugt" « endl ; ♦/}; 

KFGListNodeCtchar _Naroe [) ) { strcpy (Name, _Name); 

ScopeLevel * O; ) ; 

KFGListNodeC(char _Name [], int ^ScopeLevel) 

{ strcpy (Name, 

Name ) ; 
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Scope Level ^ 

_ScopeLevel; ) ; 

void seUaaine(char _Naiiie []) { strcpy (Name, _Naine); ); 

char* getNameO { return Name; ); 

int getScopeLevel ( ) { return ScopeLevel; ); 

bool operator -= (const KFGListNodeCH other) const 

{ return 

( (strcinpCNaine, other. Name) «• 0) 

& { ScopeLevel 

other . ScopeLevel ) ) j ) ; 

bool operator (const KFGListNodeC& other) const 

( return ! (♦this 

other) ; ) ; 

bool operator < (const KFGListNodeCfc other) const 

{ return {strcmp (Name, 

other. Name) < 0); }; 

bool operator > {const KFGListNodeCfc other) const 

{ return (strcnp (Name, 

other. Name) > 0); }; 

friend ostream& operator « ( ostream& os, const KFGListNodeC& Node); 

}; 

«endif 

#ifdef _KF(»lodel Header 
□ 

«else 

^/////////////// ///////////////////////////////////////////////////////////// ///////// 
D 

if Klasse fOr Hilfsliste, um daraus einen KFG zu erstellen. 
□ 

// Diese Klasse erfflllt die nice-Anf orderungen fOr die STL; 
// d.h. far eine Klasse T gilt 

// 0. Sie unterstQtzt den Copy-Konstruktor T (const 
// 1. den Zuweisungsoperator T& operator* (const 

// 2. den Vergleichsoperator bool operator== (const T, ficonst T&) und 

// 3. den Ungleichoperator ! = 

// in einer Weise so dafi gilt: 

// (a) { TRUE ) T a(b) (a »- b} 

// (b) ( TRUE ) a -= b {a b} 

// (c) (a — a) 

// (d) { a b b a ) 

// (e) { (a b) AND ( b = c ) => (a «- c) ) 

// (f) { a !- b <~> NOT ( a— b) ); 

// 

// Aufierden sind alle runlctionen, insbesondere getName equality preserving, d.h. 

// (g) ( a*^b «^>a. getName ( ) b . getName ( ) ) 

// 

// (C) 199*7 Siemens AG 
// 

// /////////////////////////////////////////////////////////////////////////////////// 
// 1997-08-25 Andreas Steinhorst 

////////////////////////////////////////////////////////////////////////////////////// 

#ifdef _KF(»Iodel Header 

felse 

#define _KFGNodel Header 

« include <string> 
•include <iostrearo> 

using namespace std; 

typedef char StringT [256J; 

class KFGListNodeC { 
private: 



StringT Name; 
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int Scope Level; 
list <KFGUseO Uses; 
list -CKFGDefO Defs; 

pxjblic: 

KFGListKodeCO { strcpy (Name, un- 

known — " ) ; ScopeLevel « 0; 

/* cout « "NodeC 

erreugt* « endl ; */}; 

KFGLlstNodeC(char _Naine [] ) { strcpy (Name, _Nazae}; 

ScopeLevel ■= 0; ) ; 

KFGListNodeC(char _Name (], int _5copeLevel ) 

{ strcpy (Name, 

_Naine ) ; 

ScopeLevel «= 

_ScopeLevel ; > ; 

void setNaine(char _Naine []) { strcpy (Name, _Naine); }; 

char* getNameO { return Name; ); 

int getScopeLevel () { return ScopeLevel; ); 

bool operator «= (const KFGListNodeC& other) const 

{ return 

( [strcinp(Name, other. Name) 0) 

, & (ScopeLevel 

other. ScopeLevel) ) ; }; 

bool operator != (const KFGListNodeC& other) const 

^ , { return ! {♦this 

^ other); ); 

bool operator < (const KFGLlstNodeCi other) const 

i return (strcnp (Name, 

other. Name) < 0); }; -r- r 

bool operator > (const KFGListNodeCfi other) const 

{ return (strcn^j (Name, 

other. Name) > O); ); 

friend ostreamt operator « ( ostreami os, const KFGListNodeCi Node); 

) i 

«endif 

//Klasse fOr eine Liste aus STL. KFGListeC erbt dabei alle Eigenschaf ten 
//von der mit STL erstellten Liste list<KFGNodeO . 
«ifdef _KFGProgListHeader 
*else 

#define _KFGProgListHeader 

#include <string> 

#include <iostream> 

f include <stdio.h> 

i include <list> 

#include <fstream> 

•include <iterator> 

# include ")CFGLineNode.h* 

using namespace std; 

class KTGProgListC : public list<KFGLineNodeC> { 
public: 

KFGProgListC( ) {); 

//void KFGListeAusgeben( ) ; 

//void KFGTokenListToKFGList (); 
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); 

#endif 



//Klasse fOr eine Liste aus STL. KFGLlsteC erbt dabei alle Eigenschaf ten 
□ 

//von der mit STL erstellten Lifite list<lCFQ4odeO. 
□ 

#ifdef _KFGTokenListHeader 
□ 

#else 
□ 

idefine _KFGTokenList Header 
□ 

□ 

D 

# include <string> 
□ 

#include <iostreain> 
O 

# include <stdio.h> 

#include <list> 

^include <fs-treain> 

§ include <iterator> 

# include "KFOTokenNode . h" 

using namespace std; 



class KFGTokenLlstC : pxiblic listCKrCTokenNodeO < 
public: 

KFGTokenListCO <); 

void KFGListeAusgeben ( } ; 

//void KFGTokenListToKFGList (); 

); 

«endif 



////////////////////////////////////////////////////////////////////////////////////// 
□ 

// Klasse fOr Hilfsliste, um daraus elnen KFG zu erstellen. 
D 

// Diese Klasse erfCllt die nice-Anforderungen fOr die STL; 
□ 

// d.h. fQr eine Klasse T gilt 

// 0. Sie unterstOtzt den Copy-Konstruktor T (const , 
// 1. den Zuweisungsoperator Tfi operator* (const 

// 2. den Vergleichsoperator bool operator«= (const T, fcconst T&) und 

// 3. den Ungleichoperator !- 

// in einer Weise so dafi gilt: 

// (a) { TRUE > T a(b) (a — b) 

// (b) { TRUE ) a « b {a b) 

// (c) { a «=- a) 

// (d) { a b b a > 

// (e) { (a =« b) AND ( b c ) ==> (a c) ) 

// (f) { a !- b <=> NOT ( a— b) ); 

// 

// AuBerdem sind alle Funktionen, insbesondere getName equality preserving, d.h. 

// (g) ( a «= b > a. getName () b.getNameO } 

// 

// fC) 1997 Siemens AG 
// 

// /////////////////////////////////////////////////////////////////////////////////// 
// 1997-08-25 Andreas Steinhorst 

////////////////////////////////////////////////////////////////////////////////////// 

#ifdef _KFGTokenNodeHeader 

#else 

#detine _KFGTokenNodeHeader 
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«incltide <string> 
finclude <iostream> 

using namespace s^d; 

typedef char StringT [256]; 
typedef enum 

{N, PL, IF, BT, ET, BE, EE, FOR, BF, EF, WHILE, BW, EW, SW, CA, EGA, BRK, RET, DEFA, EDEFA, DO, BDOW, DOWS,NL, DEF 
, BFUNC, EFUNC, TD, OUT, FOR_D, PF) TokenNodeTypeT; 

class KFGTokenNodeC { 
private: 

StringT Name; 

TokenNodeTypeT TokenNodeType; 
int ScopeLevel; 
int LineNuntber; 

piiblic: 

KFGTokenNodeC { ) { strcpy (Name, *" — un- 



S cope Level «= 0; 
TokenNodeType = 

LineNumber 0; 

KFGTokenNodeC (char _Name [], TokenNodeTypeT _TokenNodeType ) 

( strcpy (Name, 

ScopeLevel » 0; 

TokenNodeType = 



known — " ) ; 

N; 
); 

_Name } ; 

_TokenNodeType; 

LineNumber « 

0;}; 

KFGTokenNodeC (char _Name [], int _ScopeLevel, TokenNodeTypeT _TokenNodeType ) 

{ strcpy (Name, 

_Name ) ; 

ScopeLevel = 

_S cope Level ; 

TokenNodeType = 

_TokenNodeType; 

LineNumber « 0; 

); 

KFGTokenNodeC ( char _Name [], int _ScopeLevel, TokenNodeTypeT _TokenNodeType, 
int ^LineNumber) 

{ strcpy (Name, 

^Name ) ; 

ScopeLevel = 

^ScopeLevel ; 

TokenNodeType - 

_TokenNodeType ; 

LineNumber « 

^LineNumber; ) ; 

void setName(char _Name []) { strcpy (Name, _Name); ); 

char* getName() { return Name; }; 

int getScopeLevel ( ) ( return ScopeLevel; ); 

int getLineNumber ( ) { return LineNumber; 1; 

TokenNodeTypeT getTokenNodeType ( ) { return TokenNodeType; ); 
bool operator = (const KFGTokenNodeCfi other) const 

( return 

( (strcmp (Name, other. Name) ^ O) 

& (ScopeLevel 

w other. ScopeLevel ) 

& (TokenNode- 
Type = other .TokenNodeType) ) ; ); 

bool operator != (const KFGTokenNodeCt other) const 
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{ return ! (*this 

other) ; ) ; 

bool operator < (const KFGToJcenNodeCfc other) const 

{ return 

(strcn^fNaxne, other. Name) < 0); ); 

bool operator > (const KFGTokenNodeCfi other) const 

{ return 

(strcinp(Nazne, other. Name) > 0); ); 

friend ostreamfc operator « ( ostreami os, const KFGTokenNodeC& Node); 

); 

tendif 

#ifdef KFGUseHeader 
O 

ielse 
□ 

idefine _KFGUseHeader 
□ 

□ 

flinclude <string> 
□ 

iinclude <iostreain> 

a 
a 

using namespace std; 
D 



□ 
□ 
□ 
□ 
□ 
□ 
□ 
□ 
D 
□ 



typedef char StringT (256); 

class KFGUseC { 
private: 

StringT Use; 
int ScopeLevelU; 

public: 

KFGUseCO { strcpy (Use, " — unknown — ") 

ScopeLevelU » 0; ); 

KFGUseC(char _Use (1, int _ScopeLevelU) 

( strcpy (Use, _Use); 
ScopeLevelU ^ 

^ScopeLevelU; } ; 

void setUse(char _Use (]) t strcpy (Use, _Use); } 

char* getUseO { return Use; } 

int getScopeLevelU ( ) { return ScopeLevelU; } 

bool operator (const KFGUseCi other) const 

{ return ( (strcmp(Use, 

other. Use) 0) 

& ( Scope- 
LevelU =^ other.ScopeLevelU) ) ; ); 

bool operator != (const KFGUseCfi other) const 

{ return ! (*this «= 

other) ; ) ; 
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bool operator < (const KFGUseC« other) const 

{ return (strcmprUse, 

other. Use} < 0); ); 

bool operator > (const KPGUseCi other) const 

{ return (strcmpdJse, 

other. Use) > 0); ); 

friend ostream& operator « ( ostream& os# const KFGUseC& Node); 

); 

»endif 

#ifndef uwggraphC 
O 

#define _uwggraphC 
D 

□ 

# include <Graph.h> 
□ 

i include "uwg)cnoten.h" 
□ 

# include "uwgJcante.h* 
□ 

# include -AS_Slice.h" 
using namespace std; 

class uwggraphC : public Graph < uwg)tnotenC, uwgJtanteC > { 
public: 

short int eingefaltet; 
uwggraphC ( ) { ) ; 

SliceCr : iterator f indOutputNode (SliceC & SI); 

SliceC: : iterator definelterator (SliceC & SI, int SliceNr) ; 

void addFirstNodesTo FT (SliceC & SI, int KnotenNr, int Posl) ; 

SliceC: : iterator returnCondNode (SliceC & SI, int SliceNr); 

int checlcUW(^ode { int SliceNr); 

void SI iceAu5geben( SliceC & SI); 

void startBuildFT(SliceC £ SI); 

void buildlnLoopTree (SliceC & SI, int Posl, SliceC: : iterator SLPUSE, Sli- 
ceC: : iterator SLNODE ) ; 

void buildIn_Dl_Part {SliceC & SI, int posOR_Dl, SliceC: : iterator SLPUSE, 
SliceC: : iterator SLNODE, int D2_RefNr); 

SliceC: : iterator findOutmostPUse (SliceC & SI, SliceC: : iterator SLPUSE); 

int chec)cPUsesl (SliceC & SI, SliceC: : iterator SLPUSE, SliceC: : iterator 

SLPUSEREF) ; 

int checJcPUses2 (SliceC & SI, SliceC: : iterator SLPUSE, SliceC: : iterator 

SLPUSEREF) ; 

SliceC: : iterator find_Dl_Node (SliceC & SI, SliceC; : iterator SLPUSE, Sli- 
ceC: : iterator SUiODE]t * 

void addAllDlNodes (SliceC & SI, SliceC: : iterator SLNODE, int posGatter, int 

D2_RefNr) ; 

SliceC: : iterator findLastPUse ( SliceC & SI, int. SliceNr) ; 

SliceC: : iterator findLastPUse2 (SliceC & SI, int SliceNr, int RefNr); 
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void chec)cLoopOrCond(SliceC k SI, SliceC: ; iterator SLl, SliceC: : iterator 
SLORIG, int Posil ) ; 

void buildIn_D2_Part (SliceC & SI, int posOR_D2, SliceC: : iterator SLl, Sli- 
ceC: : iterator SLPUSE, int KnotenNrD2); 

int findD2Node( SliceC & SI, SliceC: : iterator PUSE) ; 

int buildlnlfTree (SliceC & SI, SliceC: : iterator SLIF, SliceC: : iterator 
SLORIG, int posl); 

SliceC: : iterator lookForNextPUse (SliceC & SI, SliceC: : iterator SNODE, Sli- 
ceC: : iterator SLPUSE); 

void build_IFKF_Part( SliceC & SI, int posKFOR, SliceC: : iterator SLPUSE); 

void build_Al_Part( SliceC & SI, int posIFDFOR, SliceC: : iterator SLIF, Sli- 
ceC: : iterator SLORIG); 

void buildD2_IFKF_Part (SliceC & SI, int posKFOR, SliceC: : iterator SLPUSE); 

void buildD2_Al_Part (SliceC & SI, int posIFDFOR, SliceC: : iterator SLIF, Sli- 
ceC: : iterator SLNODE) ; 

int buildD2InIfTree( SliceC & SI, SliceC: : iterator SLIF, SliceC: : iterator 
SLORIG, int posl); 

void buildLoopKF_Part (SliceC & SI, int posAND_KF, int posLOOP_KF, int posD2, 
SliceC: : iterator SLOOP); 

int buildln_LoopKF_ANDPart (SliceC & SI, int posAND^KF, SliceC: : iterator 

SLPUSE) ; 

void buildIn_LoopKF_ORPart (SliceC & SI, int posAND_KF, SliceC: : iterator SLl, 
int KnotenNrD2); 

}; 

#endif 

#ifndef _uwgkanteC 
♦define _uwgkanteC 

#include <iostreain> 

using namespace std; 

class uwgkanteC { 

public: 

short int eingefaltet; 
int Number; 

uvrgkanteCO i)f 
uvrgkanteCdnt _Nuinber) { Number = _Nuinber; ); 

bool operator (const uwgkanteCfc other) const 

( return (Number 

other. Number ) ; }; 

bool operator (const uwgkanteCi other) const 

( return ! (*this 

== other) ; ); 

bool operator < (const uwgkanteC& other) const 

( return (Number 

== other.Nurober ) ; ); 

bool operator > (const uwgkanteC& other) const 

( return (Nun±>er 

= other.Number ) ; ); 

friend ostream& operator « ( ostreami os, const uwgkanteC& Node); 

); 

«endif 
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#i£ndef _uwgknotenC 
□ 

fdefine _uwgknotenC 
□ 

□ 

« include <iostreain> 

const int inaxKnot.ent.extLength=128; 
const int maxBemerkLength-lOOO; 
const int inaxWahrVarLength»16; 

typedef struct ww { 

short int Wert; 
struct WW *next; 
) TMCSWert; 



typedef struct el { 

struct ftgatter* unabElement; 
struct WW *next; 
struct el ♦next el; 
} imnSet; 

typedef enum {AND, OR, CAUSE, EFFECT, NOT) NodeldentT; 
using namespace std; 
class uwgknotenC { 
public: 

static int Dumm^r; 
int Gatterldent; 
int outof; 
int CauseNr; 

char gattertext (maxKnotentext Length 1 ; 
char gatterbemerkungfrnaxBemerkLength] ; 
double wahrsch; 

char wahrvar (maxWahrVarLength] ; 
NodeldentT Nodeldent; 

uwgknotenCO { Nodeldent « EFFECT; 

CauseNr * 0; 
strcpy (gatter- 
text, " — unknown — *); 

strcpy (gatter- 

bemerkung, " — keine — " ) ; 

Gatterldent - 

DuimnyNr++; }; 

uwgknotenC {NodeldentT _NodeIdent ) 

{ Nodeldent « 

_NodeIdent? 

CauseNr « 0; 

strcpy (gattertext, — unknown — " ) ; 
strcpy (gatterbemerkung, " — keine--"); 

Gatterldent = 

DummyNr++ ; ) ; 

uwgknotenC (NodeldentT ^Nodeldent, int _CauseNr/*, char _gattertext ( ) ♦/ ) 

{ Nodeldent = 

_NodeIdent; 

CauseNr « 

_CauseNr; 

strcpy (gattertext, unknown — 

strcpy (gatterbemerkung, " — keine — ") ; 
/ ♦st rcpy {gattertext , _gattertext ) ; * / 

Gatterldent « 

Duinm^r++; ); 
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uwgknotenC(NodeIdentT _NodeIdent, int _CauseNr, char _gattertext ( ] , char 

gatterbemerJcungl) ) / « ^ * 

— ^ { Nodeldent « 

Nodeldent; ^ 
— CauseNr = 

_CaiiseNr; 

strcpy(gattert:ext, unJcnown — 

strcpy(gat.tert.ext, _gattertext ) ; 
strcpyigatterbemerkung, ^gatterbemerkung) ; 
DunimyNr++; }; 



Gat^terldent 



uwgknotenC(NodeldentT Nodeldent, int _CauseNr, char _gattertext { 1 ) 

~ { Nodeldent 



_NodeIdent ; 
_CauseNr; 

tertext, ** — unknovm — ");*/ 
strcpy ( gattertext, _gattertext ) ; 
strcpy ( gatterbemerkung, " — keine — " ) ; 
DuinmyNr++; ); 

uwgknotenC(NodeIdentT _NodeIdent, char _gattertext ( ] , char 
^gatterbemerkiing [ ] ) 

^Nodeldent; 

strcpy (gattertext, _gattertext ) ; 

strcpy (gatterbemerkung, _gatterbeinerkung) ; 

DuinmyNr++; ); 

uwgknotenC(NodeIdentT _NodeIdent, char _gattertext (J ) 

_NodeIdent; 

strcpy (gattertext, _gattertext ) ; 
strcpy(gatterbemerkung, " — keine — * ) ; 
Duitiin>^r++; ); 



CauseNr = 
/♦strcpy (gat- 



GatterXdent = 

{ Nodeldent « 
CauseNr = 0; 

Gatterldent * 

( Nodeldent = 
CauseNr -» 0; 

Gatterldent » 



int getCauseNr ( } 

int getGatterldent ( ) 

NodeldentT getNodeldent ( ) const 



{ return CauseNr; } ; 
( return Gatterldent; }; 

{ return Nodeldent; } ; 



bool operator = (const uwgknotenC& other) const 
seNr other. CauseNr) 
other . Nodeldent ) 

(strcinp ( gattertext, other. gattertext ) «** 0) 
dent «= other.Gatterldent ) */ ) ; }; 

bool operator != (const uwgknotenCfi other) const 
== other) ; ) ; 

bool operator < (const uwgknotenCfi other) const 
rident < other. Gatterldent ) ; ); 

bool operator > (const uwgknotenCfi other) const 



{ return ( (Cau- 
6 (Nodeldent ««= 
& 

/*t (Gatterl- 
{ return ! (♦this 
{ return (Gatte- 
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{ return (Gatte- 

rldent > other .Gatterldent) ; ); 



friend ostreamfi operator « ( ostreain& os, const uwg)cnotenC& Node); 

}; 

«endif 



« include •'AS_GraphKante - h" 
□ 

# include <iostreain> 



ostream& operator « ( ostream& os, const GraphKanteC £ Kante) { 
OS « Kante. KantenTyp; 
return os; 

) 

# include "AS_GraphNode.h" 
□ 

# include <iostreain> 
□ 

□ 

ostream6 operator « ( ostream& os^ const 6raphNodeC& Node) ( 

□ 

OS « endl « Node.NodeNr; 
return os; 

} 



« include -AS_Slice-h" 
O 

# include <iostreain> 
□ 

# include <iterator> 
□ 

# include <algorithm> 
□ 

# include "uwggraph.h" 
□ 



□ 

using namespace std; 
□ 



O 



O 

//FO: Funktion zur Auswahl der Variable, far die ein Fehlerbaum erstellt werden soli. 
□ 

// ZurQcicgegeben wird ein Zeiger auf den ausgewahlten Knoten. 
KrGListC: : iterator Sliced :de fine VariableToSl ice (KFGListC & L21 { 
int Number « 0; 

KFT3ListC: : iterator KFGI « L2.begin(); 
KFGListC: : iterator VARDEFI = L2. begin (); 
KFGUseListC: : iterator USEIT; 
while ( KFGI !- L2.end()) { 

USEIT - KFGI->Uses.begin{ ); 

if ( KFGI->getKFGNodeType ( ) OP ) { 

cout « KFGI->getKnotenNuramer () « " « USEIT->getUse ( ) « 

endl ; ; 

> 

KFGI++; 

} 

cout « "Geben Sie die Knotennummer ein und drQcken Sie RETURN: 
cin » Number; 

while ( KFGI !« L2,begin() ) { 

if (KFGI->getKnotenNummer ( ) « Number) { 
VARDEFI = KFGI; 

} 

KFGI—; 

} 

if (V7yiDEFI->getKFGNodeType( ) OP) { 

cout « "Ausgewahlt wurde Knoten Nr.: " « VARDEFI ->getKnotenNunaaer ( ) « 

endl ; 
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return VARDEFI; 

} 

else { 

VARDEFI « L2.begin(); 

cout « "Dieser Knoten ist kein Ausgabeknoten, das Prograntni vrird beendet." 

« endl; 

exit ( 1 ) ; 
return VARDEFI; 

) 

} 



//Fl; Sucht P-Use Knoten, fQgt ihn dem Slice hinzu und zieht eine KFK. 

// input: Iterator auf den C-Use Oder D-Use, KFG-Liste; 

void SliceC: :sliceForLoops(KFGListC & L2, KFGListC: : iterator LOOPIT) { 

int HLevel; 

int check • 0; 

int KnotenNummer - 0; 

KFGListC: : iterator HELPIT * LOOPIT; 

while ( { LOOPIT->getKF(»lodeType ( ) LC &t LOOPIT->getKFC»IodeType () !» IFC) || 
(LOOPIT->getLevel ( } !- HELPIT->getLevel ( ) ) ) { 
LOOPIT — ; 

} 

KnotenNummer « LOOPIT->getNodeNr ( ) ; 
check « Che ckForNodes (KnotenNummer ) ; 
//insert ( *LOOPIT, *HELPIT, KFK) ; 

insert (*HELPIT, *LOOPIT,KFK) ; //umgekehrte Richtung der Kante^ damit jeder Knoten 
seine VorgSnger kennt. 

//cout « "eingefOgterKnotenFla: " « LOOPIT->getNodeNr ( ) « endl; 

//cout « "eingefQgterKnotenFla: " « HELPIT->getNodeNr ( ) « endl « endl; 

if (check = 0) { 

findAllDefs(L2r LOOPIT); 

) 

HLevel « LOOPIT->getLevel( ) ; 
while (LOOPIT->getLevel() > 2) { 

check ~ 0; 

HELPIT = LOOPIT; 

while ( (LOOPlT->getKF(a*odeType( ) LC LOOPIT->getKFGNodeType ( J !« IFC) 
I I ( LOOPIT->getLevel ( ) >« HELPIT->getLevel ( ) ) ) { 
LOOPIT — ; 
> 

KnotenNummer = LOOPIT->getNodeNr ( ) ; 
check = ch e ckForNodes (KnotenNummer) ; 
//insert (♦LOOPIT, *HELPIT,KFK) ; 

insert (*HELPIT, ♦LOOPIT, KFK) ; //umgekehrte Richtung der Kante, damit jeder 
Knoten seine Vorganger kennt. 

//cout « "eingefOgterKnotenFlb: " « LOOPIT->getNodeNr ( ) « endl; 

//cout « "eingefOgterKnotenFlb: « HELPIT->getNodeNr ( ) « endl « endl; 

if (check — 0) { 

findAllDefs(L2, LOOPIT); 

} 

HLevel « LOOPIT->getLevel ( ) ; 

} 

} 



//F2: Sucht alle D-Uses zu einem P-Use, fOgt diese dem Slice hinzu und zieht DFK. 
// input: Iterator auf den Knoten mit der P-Use Liste, KFG-Liste; 
void .SI iceC: :findAllDefs (KFGListC & LI, KFGListC: : iterator ITER) { 

int AktLevel; 

int duraroylf « 0; 

int KnotenNummerEnde = 0; 

AktLevel « ITER->get Level ( ) ; 

KFGListC: : iterator HELPIT « ITER; 

KFGListC: : iterator HELPIF = ITER; 

KFGListC: : iterator HELPLOOP = ITER; 

KFGListC: : iterator UPPERLIMIT ITER; 

KFGP_UseListC: : iterator PUSEIT; 

PUSEIT = ITER->P_Uses.begin( ) ; 

KFGDefListC: : iterator DEFITl; 

if (ITER->getKFGNodeType( ) LC) { 

\rtiile ( (HELPLOOP->getKFGNodeType( ) !=EL) II ( HELPLOOP->getLevel ( ) !- Akt- 
Level ) ) { 

HELPLOOP++; 

) 

HELPIT = HELPLOOP; ' 

KnotenNummerEnde « HELPLOOP->getNodeNr ( ) ; 

) 
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while I PUSEIT ! = ITER->P_Uses . end ( ) ) { 

UPPERLIMIT findUpperLimit(Ll, ITER, PUSEIT I; 
HELPLOOP * findLowerLimit(Ll, ITER, UPPERLIMIT); 
//insert (*UPPERLIMIT, *ITERr DFK) ; 

insert (* ITER, ♦UPPERLIMIT, DFK) ; //umgekehrte Richtung der Kante, damit jeder 
Knoten seine Vorg^nger kennt. 

//cout « "eingefagterKnotenF2a: " « UPPERLIMIT->getNodeNr ( ) « endl; 
//cout « "eingefQgterKnotenF2ar " « ITER->getNodeNr ( » « endl; 
while (HELPLOOP !« UPPERLIMIT) { 
HELPLOOP — ; 

if (HELPLOOP->getKFOIodeType{) — EEl) { 
dummylf - Is 

) 

if ( (HELPLOOP->getKF£»iodeType( ) — ETh) && (HELPLOOP->getLevel ( ) < 
ITER->getLevel ( ) ) && (dummylf -« 0) ) { 

HELPIF «* HELPLOOP; 

while ( (HELPLOOP->getKFGNodeType() !« IFC) tl (HELPLOOP- 
>getLevel () != HELPIF->getLevel { ) ) ) { 

HELPLOOP—; 

) 

dummylf = 0; 

) 

if (HELPLOOP->getKFGNodeType( ) •= NO) { 
DEFITl « HELPL0OP->Defs.begin( ); 
while (DEFITl != HELPLOOP->Def s. end ( ) ) { 

if (strcnp(PUSEIT->getUse( ) ,DEFITl->getr>ef ( ) ) 0) { 
//insert ( *HELPLOOP, *ITER, DFK) ; 

insert {♦ITER, ♦HELPLOOP, DFK) ; //umgekehrte Rich- 
tung der Kante, damit jeder Knoten seine Vorganger kennt. 

def InLoop ( LI , HELPLOOP ) ; 

//cout « •'eingefQgterKnotenF2b: " « HELPLOOP- 



>getNodeNr() « endl; 
>getNodeNr() « endl « endl; 



//cout « "eingefagterKnotenF2b: " « ITER- 

if ( !HELPLOOP->Uses. empty* ) ) { 

findDefToCUse{Ll, HELPLOOP); 

} 



} 

DEFIT1++; 

) 

} 

} 

PUSEIT++; 

} 

KFKPUseToCUse ( ITER, KnotenNummerEnde ) ; 



//F5: Funktion sucht den ersten def oberhalb eines p-uses oder c-uses und 
// liefert einen Iterator auf diese obere Grenze bei der Suche aller defs 
// zurQck. 

KFGListC: literate r Sliced : findUpperLimit (KFGListC & LI, KFGListC: : iterator ITER, 
KFGP_UseListC: : iterator PUSEIT) { 

int dummy - 0; 

int dummyl = 0; 

int dummylf • 0; 

int AktLevel « 0; 

KFGListC: : iterator HELPDEF = ITER; 
KFGListC: : iterator HELPLOOP « ITER; 
KFGListC:; iterator HELPIF = ITER; 
KFGListC:: iterator HELPIT = ITER; 
KFGListC:: iterator HELPDEFRETURN = ITER; 
KFGDefListC: : iterator DEFIT; 
AktLevel « ITER->getLevel ( ) ; 

//finden des ersten defs oberhalb des p-use. 
while ((HELPDEF != LI. begin ()) && (dummy != 1)) { 
HELPDEF—; 

if (HELPLOOP->getKFGNodeType() = EEl) { 
dummylf = 1; 

) 

if ( (HELPDEF->getKFGNodeType( ) ETh) && ( HELPDEF->getLevel ( ) < ITER- 
>getLevel()) && (dummylf 0) ) { 

HELPIF « HELPDEF; 

vrtiile ( (HELPDEF->getKFGNodeType ( ) != IFC) I] ( HELPDEF->get Level ( ) *«* 

HELPIF->getLevel ( ) ) ) { 

HELPDEF — ; 

) 
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dummylf - 0; 

} 

if (HELPDEF->getKF(a<odeType( ) NO) { 
DEFIT -» HELPDEF->De fs. begin () ; 

if (strCT?5lDEnT->getOef Or PUSEIT->getUse( ) ) O) { 
- HELPDEFRETURN » HELPDEF; 
dumniy 1# 

) 

) 

if ((HELPDEF — Ll.beginO) fc& (HELPDEF->getKFGNodeType ( ) NO)) ( 
DEFIT - HELPDEF->Defs.begin( ) ; 

if (strcn^(DEFIT->get.Def ( ) , PUSEIT->getUse( ) ) 0) { 
HELPDEFRETURN - HELPDEF; 
dummy » 1; 

) 

) 

//finden der SuBersten Schleife, falls diese Oberhaupt existiert. 
if (ITER->getLevel(J > 2) { 

vhile ({HELPIT != Ll.endO) (dummyl !« 1)) { 
HELPIT++ • 

if ( (HELPIT->getKF(»IodeType() ««= EL) && (HELPIT->getLevel ( ) < Alct- 
Level)} ( 

HELPLOOP « HELPIT; 

if (HELPIT->get:Level( ) > 2) { 

WctLevel « HELPIT->getLevel ( ) ; 

} 

else { 

dummyl » 1 ; 

) 

} 

} 

HELPIT - HELPLOOP; 

//gehe zum Anfang der aufiersten Schleife: 

while ( (HELPIT->getKFGNodeType() !«LC) )) (HELPIT->getLevel ( ) !-HELPLOOP- 

>gel:Level ( ) ) ) { 

HELPIT — ; 

} 

//wenn der gefundene def-Ko^en au&erhalb der auBerst.en Schleife liegt, und 
//sein ScopeLevel grOBer ist als das der auBerst.en Schleife, suche, ob es 
//noch einen weiteren def-Knoten weiter oben gibt. 
if (HELPDEF->getNodeNr ( ) > HELPIT->getNodeNr ( ) ) { 

if (HELPDEF->getLevel ( ) >= HELPIT->getLevel ( ) ) { 
dummy • 0; 

while ((HELPDEF != Ll.beginO) && (dummy !» 1) ) { 
HELPDEF — ; 

DEFIT = HELPDEF->Defs.begin( ); 

if (strcii¥»(DEFIT->getDef 0,PUSEIT->getUseO ) 0) ( 
HELPDEFRETURN - HELPDEF; 
dummy =1; 

) 

) 

} 

} 

) 

return HELPDEFRETURN; 



//F6: Fun);tion sucht, abhSngig vom oberen Ende, das untere Ende des Bereichs, indem 
// die defs gesucht werden mQssen. 

// 2urQc)cgeliefert wird ein Iterator auf die untere Grenze. 

KFGListC: : iterator Sliced : findLowerLimit (KFGListC & LI, KFGListC: : iterator ITER, 
KFGListC: : iterator UPPERLIMIT) { 

int dummyl » 0; 

int A)ct Level • 0; 

KFGListC: : iterator HELPIT = ITER; 
KFGListC: : iterator HELPLOOP = ITER; 
KFGListC: : iterator LOWERLIMIT = ITER; 
AJctLevel = ITER->getLevel { ) ; 
if (ITER->getKFGNodeType( ) LC) { 

while ( (HELPLOOP->getKFGNodeType( ) !«EL) II (HELPLOOP->getLevel ( ) !- AJct- 
Level)) { 

HELPLOOP++; 

) 

) 

//finden des Endes der SuBersten Schleife. 
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if (ITER->get:Level() > 2) { 

while ( (KELPIT !<= Ll.endO) && (dummyl 1» X) ) { 
HELPIT++; 

if { {HELPIT->getKrGNodeType() = EL) && (HELPIT->getLevel ( ) < AJct- 

Level ) ) { 

HELPLOOP « HELPIT; 

if (HEl.PIT->getLevel( ) > 2) ( 

AktLevel = HELPIT->getLevel ( ) ; 

> 

else { 

dummyl » 1; 

} 

} 

} 

HELPIT = HELPLOOP; //HELPLOOP zeigt auf das Ende der Su- 

fiersten Schleife, ansonsten auf den p-use. 

while ( (HELPIT->getKFGNodeType() !« LCJ It ( HELPIT->getLevel ( ) !«» HELPLOOP- 

>getLevel ( ) ) ) { 

HELPIT—; 

) //HELPIT zeigt auf den 

Anfang der auBersten Schleife. 

if (HELPIT->getNod€Kr( ) < UPPERLIMIT->getNodeNr ( ) ) { 

LOWERLIMIT = HELPLOOP; // falls die obere Grenze aufierhalb der Schlei- 



fen liegt. 



AJctLevel)) { 



liegt. 



} 

else { 

AktLevel » UPPERLIMIT->getLevel ( ) ; 

while ( (HELPLOOP->getKFGNodeType( ) != EL) 11 ( HELPLOOP->get Level ( ) <= 
HELPLOOP — ; 

) 

LOWERLIMIT » HELPLOOP; //falls die obere Grenze innerhalb der Schleife 



} 
) 

else { 

LOWERLIMIT « HELPLOOP; 

} 

return LOWERLIMIT; 

} 



//F3: Funktion zieht eine KFK vom P*Use zu alien C-Uses, die sich in derselben 
// Schleifen- bzw, Verzweigungsebene befinden. 
// input: Iterator auf P-Use Knoten. 

void SliceC: :KFKPUseToCUse(KFGListC: : iterator PUSEIT, int SchleifenEnde) { 
SliceC: : iterator SLl = begin(); 
SliceC: :lterator SLHELP = begin () ; 
KFGListC: : iterator ITER = PUSEIT; 
KFGUseListC: : iterator USEIT; 
KFGP_UseListC: : iterator PUSEIT2; 
KFGUseListC: : iterator CUSEIT2; 
int KnotenLevel; 
int KnotenNummer; 

KnotenNummer *= PUSEIT->getNodeNr { ) ; 
KnotenLevel = PUSEIT->getLevel ( ) ; 

while { (♦SLl) .first. getNodeNr( ) !- KnotenNummer) 

SL1++; 
SLHELP - SLl; 
SLl « beginO; 
v^ile (SLl endO) { 

if ((KnotenNummer > ( •SLl ). first . getNodeNr () ) && (SchleifenEnde < 
(*SL1) .first.getNodeNrO) ) { 

if (( (♦SLl) . first -getKFGNodeType( ) = NO) && ( (♦SLl ). first . getLevel ( ) 

»~ KnotenLevel ) ) { 

//insert( (♦SLHELP) .first, (♦SLl) .first, KFK); 

insert ( CSLl) .first, CSLHELP) .first, KFK); //umgeJcehrte Rich- 
tung der Kante, damit jeder Knoten seine VorgSnger kennt. 

//cout « "eingefQgterKnotenF3: " « 
(♦SLl) .first.getNodeNrO « endl; 

//cout « "eingef OgterKnotenFS: " « 
(♦SLHELP) . first.getNodeNr( ) « endl; 

} 

) 

SL1++; 

} 

} 
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//F4: Funktion sucht, wenn der Knoten neben den defs noch c-uses enthSl^, zu dlesen 
// c-uses alle defs und zieht DFK vom gefundenem def zum c-use. 
void SliceC: :findDefToCUse<kFGListC & LI, KFGListC: : iterator ITER) { 

int Hl*evel; 

int check = 0; 

int dummy « 0; 

int dummylf » 0; 

int KnotenNummer -» O; 

KFGListC: : iterator HELPIT ^ ITER; 

ICFGListC: : iterator HELPLOOP «= ITER; 

KFGListC; : iterator HELPIF - ITER; 

KFGListC: : iterator LOWERLIMIT ^ ITER; 

KFGListC: : iterator UPPERLIMIT = ITER; 

KFGDefListC: : iterator DEFITl; 

KFGUseListC: : iterator USEITl; 

USEITl » ITER->Uses.begin( ) ; 

HLevel " ITER->get Level ( ) ; 

while (USEITl ITER->Uses . end { ) ) { 

UPPERLIMIT « findUpperLimitFromCUsetLlr ITER, USEITl); 
HELPIT » findLowerLimitFromCUse(Llr ITER, UPPERLIMIT); 
UPPERLIMIT — ; 

//cout « "eingefQgterKnotenF4a: " « UPPERLIMIT->getNodeNr ( ) « endl; 
//cout « "eingefQgterKnotenF4a: " « ITER->getNodeNr () « endl; 
while (HELPIT !« UPPERLIMIT) { 

if (HELPLOOP->getKFGNodeType( ) EEl) { 
dummylf « 1; 

} 

if ( (HELPlT->getKFGNodeType( ) ETh) && ( HELPIT->get Level ( ) <« ITER- 
>getLevel()) && (dummylf — 0) ) { 

HELPIF « HELPIT; 

while ( (HELPIT->getKFGNodeType( ) »-= IFC) U (HELPIT- 
>get Level ( ) != HELPIF->getLevel ( ) ) ) { 

HELPIT — ; 

> 

duimnylf - 0; 

} 

if (HELPIT->getKF(a4odeType( ) «« NO) ( 
DEFITl = HELPIT->Defs.begin( ) ; 

if (strcmp(DEFXTl->getDef (),USEITl->getUse{ ) ) 0) { 
if ( ! HELPIT->Uses . empty ( ) ) { 

KnotenNummer = HELPIT->getNodeNr ( ) ; 
check = checkForNodes (KnotenNummer ) ; 

) 

/ / inse rt ( ♦ HELPIT , ♦ ITER, DFK ) ; 

insert (♦ITER, *HELPIT, DFK) ; //umgekehrte Richtung der 
Kante, damit jeder Knoten seine VorgSnger kennt. 

de f InLoop ( LI , HELPIT ) ; 

//cout « "eingefagterKnotenF4b: - « HELPIT- 

>getNodeNr() « endl; 

//cout « "eingefQgterKnotenF4b: " « ITER- 

>getNodeNr{) « endl « endl; 

if (check =- 0) { 

f indDef ToCUse ( LI , HELPIT ) ; 

} 

} 

) 

HELPIT—; 

) 

USEIT1++; 

) 

} 



//F8: Funktion sucht die untere Grenze, von der an die defs zu einem c-use gesucht 
// werden dUrfen, 

KFGListC: : iterator si i ceC: : findLower Limit FromCUse (KFGListC & LI, KFGListC: : iterator ITER, 
KFGListC: : iterator UPPERLIMIT) { 

int HLevel; 

int dummy • 0; 

KFGListC: : iterator HELPIT « ITER; 
KFGListC: : iterator HELPLOOP « ITER; 
KFGListC: : iterator LOWERLIMIT « ITER; 
KFGDefListC: : iterator DEFITl; 
KFGUseListC: : iterator USEITl; 
USEITl s= ITER->Uses.begin( ) ; 
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HLevel *= ITER->getUevel ( ) ; 

//Ist der c-use Knoten in einer Schlelfe? 

if ( ITER->getLevel () >» 2 ) { 

\rtiile ( (HELPIT !« Ll.exidO) &£ (dummy 1)) ( 
HELPIT++; 

if ( (HEl.PIT->getKFGNodeType{) = EL) && (HELPIT->getLevel ( ) <- 



HLevel ) ) { 

HELPLOOP « HELPIT; 
if (HELPIT->getLevel ( ) > 2) { 
HLevel — ; 

} 

else { 

dummy «=■ 1; 

) 

) 

) 

} 

//Der Iterator HELPLOOP zeigt jetzt auf das Ende der Su&ersten, den Knoten umgeben- 

//Schleife, falls es diese gibt, ansonsten zeigt der Iterator auf den c-use-Knoten 

if (HELPLOOP != ITER) { 

HELPIT * HELPLOOP; //Iterator zeigt auf das Ende der auBersten 

Schleife. 

while { (HELPIT->getKFGNodeType{ ) !*LC) II ( HELPIT->get Level ( ) l-HELPLOOP- 

>geti^vel ( ) ) ) { 

HELPIT—; 

) 

if (HELPIT->getNodeNr( ) < UPPERLIMIT->getNodeNr ( ) ) { 

LOWERLIMIT « HELPLOOP; //obere Grenze auBerhalb der aufiersten Schlei- 



den 

selbst . 



fe; 



ben Schleife; 



aber 



) 

else if (ITER->getLevel( ) U PPERLIMIT->get Level () ) { 

LOWERLIMIT * ITER; //obere Grenze mit dem c-use in dersel- 

) 

else if {ITER->getLevel ( ) < UP PERLIMIT->get Level () ) { 

LOWERLIMIT = HELPLOOP; //obere Grenze in derselben duBeren Schleife, 



) //innerhalb in einer 

anderen, vor dem c-use liegenden Schleife; 
else ( 

HLevel * UPPERLIMIT->getLevel ( ) ; 

while ( (HELPLOOP->getKFGNodeType ( ) !=EL) I) (HELPLOOP->getLevel ( } <- 

HLevel ) ) { 

HELPLOOP—; 

) 

LOWERLIMIT = HELPLOOP; //obere Grenze in einer niedrigeren Schleife 

als der c-use; 

) 

} 

else { 

LOWERLIMIT = ITER; //)ceine auBere Schleife vorhanden. 

} 

return LOWERLIMIT; 

//n: FUnktion sucht die obere Grenze, bis zu der defs zu einero c-use gesucht werden 
// darfen. Die Funlctionsweise ist ahnlich entsprechenden Funktion fQr p-uses. 
KFGListC: : iterator Sliced : findUpperLimi tFromCUse (KFGListC & LI, KFGListC: : iterator ITERl, 
KFGUseListC: : iterator USEIT) { 

int dummy — 0; 

int duramyl = 0; 

int dummylf « 0; 

int AktLevel » 0; 

KFGListC: : iterator HELPDEF «= ITERl; 
KFGListC:: iterator HELPLCX)P « ITERl; 
KFGListC: : iterator HELPIT = ITERl; 
KFGListC: : iterator HELPIF = ITERl; 
KFGListC: : iterator HELPDEFRETURN = ITERl; 
KFGDefListC: : iterator DEFIT; 
AktLevel = ITERl ->getLevel ( ) ; 

//cout « "bearbeitender Knoten: " « ITERl ->getNodeNr ( ) « endl; 
//finden des ersten defs oberhalb des use. 
do { 

if (HELPLO0P->getKFGNodeType( ) »= EEl ) { 
dumraylf » 1; 
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} 

if ( (HELPDEF->getKFGNodeType( ) = ETh) && (HELPDEF->getLevel () <= ITERl- 

>getLevel()) &4 (duimnylf — ' OJ) { 

HELFIF « HELPDEF; 

%rtiile ((HELPDEF->getKFGNodeType() !«IFC) II (HELPDEF->getLevel ( ) ! = 

HELFIF->getl.evel ( ) ) ) { 

HELPDEF--; 

) 

duxnmylf » 0; 

) 

if (HELPDEF->getKFGNodeType{) -= NO) { 
DEFIT « HELPDEF->Defs.begin( ) ; 

if (strcn?5(DEFIT->getDef {)rUSEIT->getUse() ) ~ 0) { 
HELPEEFRETURN - HELPEEF; 
if (HELPDEF !« ITERl ) { 
dummy • 1; 

) 

) 

) 

HELPDEF — ; 

} while ((HELPDEF != LI, begin ()) && (dummy != D); 

if ( (HELPDEF -= Ll.beginO) ( HELPDEF->getKFGNodeType ( ) NO)) { 
DEFIT « HELPDEF->Defs.begin( ) ; 

if (s1:rcn^{K:FIT->getDef (),USEIT->getUse() ) 0) { 
HELPDEFRETURN « HELPDEF; 

} 

) 

HELPDEF = HELPDEFRETURN; 

//cout « "erster def: " « HELPDEFRETURN ->g etNodeNr ( ) « endl; 
//finden der Suflersten Sclileife, falls diese Oberhaupt existiert. 
if (ITERl->getLevel ( ) >« 2) { 

while ((HELPIT !-= Ll.endO) && (dummyl l« 1)) { 
HELPIT++ ' 

if ( (HELPIT->getKFGNodeType( ) »« EL) && (HELPIT->getLevel( ) <« Akt- 

LeveD) { 

HELPLOOP - HELPIT; 
if (HELPIT->getLevel( ) > 2) { 
Akt Level — ; 

) 

else { 

dxunmyl = 1; 

} 

} 

} 

HELPIT » HELPLOOP; 

//cout « "Ende der auBersten Schleife: " « HELPIT->getNodeNr ( ) « endl; 
//gehe zuro Anfang der aufiersten Schleife, wenn es diese gibt; 
if ( HELPLOOP->getKFGNodeType ( ) = EL) 1 

while ( (HELPIT->getKFGNodeType( ) != LC) ]| (HELPIT->getLevel ( ) ! = 
HELPLOOP->getLevel { ) ) ) { 

HELPIT — ; 

1 

//cout « "Anfang der auBeren Schleife: " « HELPIT->getNodeNr ( ) « 



endl; 

llegt, und 
ob es 



0) { 



//wenn der gefundene def-Koten auBerhalb der auBersten Schleife 

//seln ScopeLevel grOfier ist als das der Sufiersten Schleife, suche, 

//noch elnen weiteren def-Knoten weiter oben gibt. 
if (HELPDEF->getNodeNr{ ) > HELPIT->getNodeNr ( ) ) { 

if ( HELPDEF->get Level () >= HELPIT->getLevel ( ) ) { 
dummy " 0; 

while ((HELPDEF !« Ll.beginO) && (dummy !- 1 ) ) { 
HELPDEF--; 

DEFIT « HELPDEF->Defs.begin{ ) ; 

if (strcmp(DEFIT->getDef ( ) ,USEIT->getUse( ) ) 

HELPDEFRETURN «= HELPDEF; 
dummy « 1; 

} 

} 

} 

) 

//e-use innerhalb der auBersten Schleife; 
else ( 

if ( HELPDEF->get Level ( ) > ITERl ->getLevel () ) { 
dummy <= 0; 

while (HELPDEF != HELPIT) { 
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HELPDEF — ; 

DEFIT « HELPC£r->Defs.begln( ) ; 

if istrcmp(DEFIT->getDef ( ) ,usEIT->getUse( ) ) «= 
HELPDEFRETURN • HELPM:F; 

) 

} 

) 

) 

) 

//e-use in keiner Schleife, aber in einer Verzweigung; 
else { 

if (HELPDEF->getLevel ( ) > ITEia->getLevel { ) ) { 
dumny 0; 

while ((HELPDEF != Ll-beginO) && {diunrny != 1)) { 
HELPDEF--; 

DEFIT ° HELPDEF->Defs.begin(); 

if (streinp(DEFIT->getDef (),USEIT->getUse() ) 0) { 
HELPDEFRETURN » HELPDEF; 
duimny » 1; 

} 

} 

) 

} 

} 

//c-use in keiner Schleife; 
else { 

if (HELPK:F->getLevel( ) > ITERl->getLevel ( ) ) { 
dummy " 0; 

while ((HELPDEF !« LI, begin ()) && (dummy 1= 1)) { 
HELPDEF--; 

DEFIT « HELPDEF->Defs.begin( ) ; 

if (strcinp(DEFIT->getDef ( ) ,USEIT->getUse( ) ) — 0) { 
HELPDEFRETURN « HELPDEF; 
dummy = 1; 

} 

} 

} 

) 

//cout « "UpperLimitFunktion: " « HELPDEFRETURN->get:NodeNr ( ) « endl; 
return HELPDEFRETURN; 



//F9: Funktion QberprOft, ob ein Knoten bereits im Slice vorhanden ist Wenn la 
// wird eine eins zurtlckgelief ert, andemfalls eine null, ' 
// input: Knotennummer des gesuchten Knotens; 
// output: Integerwert 0 Oder 1; 
int SlieeC: :checkForNodes(int NodeNumber) { 
int dummy • 0; 

SliceC: : iterator SLl *= begin(); 

while ((SLl !- end{)) && (dummy != 1)) { 

if ( (♦SLl) .firs t,getNodeNr( ) = NodeNumber) ( 
dummy ** 1 ; 

) 

SL1++; 

) 

if (dummy 1) { 
return 1; 

) 

else ( 

return 0; 

} 



//FIO: Funktion untersucht, ob ein def in einer Schleife ist; wenn )a, wird die 
// Funktion Fl, die den p-use sucht, aufgerufen. Dort wird als erstes nach- 

// gesehenr ob der gefundene p-use bereits im Slice vorhanden ist 

void SliceC: :defInLoop(KFGListC & LI, KFGListC: : iterator ITER) { 
int dummyLoop «= 0; 

KFGListC: : iterator HELPIT ITER; 

while ((HELPIT != LI. begin (J) && (dummyLoop 1)1 { 
HELPIT—; 

( ((HELPIT->getKFGNodeType(} ^LC) \\ ( HELPIT->getKFGNodeType () « IFC) ) 
&& (HELPIT->getLevel() =^ ITER->getLevel() )) { ^^ypew lt~C) ) 

sliceForLoops(Ll,ITER) ; 
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dummyLoop - 1; 



//Fll: Funktion beJcoramt den ausgewShlten Startknoten fOr den Slice Qbenmnittelt, 
// imtersucht, ob dieser Knoten in einer Schieife ist; wenn ja, wird zuerst 

// die Function "sliceFor Loops" aufgerufen, ansonsten sofort "f indDefToCUse" ' . 

void SliceC: :startBuiIdSlice(KFGListC & LI/*, KFGListC: rite rater OUTPUTIT*/) ( 
int dummyNode « 0; 

KFGListC: titerator STARTVARI - def ineVariableToSlice (LI ) ; 
KFGListC: : iterator HELPOUT « STARTVARI; 
while ({HELPOUT != Ll.beginO) && (dunnnyNode !« 1) ) { 
HELPOUT — ; 

if ( ( (HELPOUT->getKFC»lodeType( ) ~ LC) || ( HELPOUT->getKFGNodeType ( ) -= 
IFC) ) i& ( HELPC>UT->get Level ( ) •= STARTVARI ->getLevel ()) ) { 
slice ForLoops ( LI , STARTVARI ) ; 
dummyNode * 1; 

) 

} 

//cout « "Fll" « OUTPUTIT->getNodeNr( ) « endl; 
f indDe fToCUse ( LI , STARTVARI ) ; 

} 



void SliceC: :sliceAusgeben( ) { 

ofstream Ziel ( "Slice2 -sic" ) ; 

ostreain_iterator<ICFGListNodeO POSIT (Ziel, "Xn"); 
//ostreain_iterator<ICFGListNodeC> POSIT2(Ziel, "Xn"); 
SliceC: : iterator SLC • begin(); 
while (SLC !- endO) < 

♦ POSIT++ » (•S1*C) .first; 

SliceC: :Nachfolger: : iterator IT = {♦SLC) -second. begin( ) ; 
SliceC: tNachfolger: : iterator ITEND « (* SLC) . second. end () ; 
while (IT !» ITEND) { 

//a • CIT) .first; 

♦POSIT++ « SLCn*IT) .first] . first; 
♦IT++; 

} 

++SLC; 

} 

} 



«include -KFGDef.h** 
Q 

#include <iostreaBi> 
D 

□ 

ostreamfi operator « ( ostreamfc os, const KFGDefCfi Node)( 

□ 

OS « "DEF: " « Node. Def « " " « Node . ScopeLevelD; 

□ 

return os; 

□ 

) 



dinclude "KFGLineNode.h" 
□ 

#include <iostreain> 

ostream& operator « ( ostream& os, const KFGLineNodeC& Node)( 
OS « Node. Name « •* " « Node. Lin eN umber « endl; 
return os; 

} 



//Funktion, die aus KFGTokenList einen KFG baut. 
□ 



wo 00/75780 



PCT/DEOO/01001 



finclude <iost.reaxn> 
□ 

i include "KPGList-h" 

□ 

#include "KFGTokenList.h" 
•include "KFGUse.h" 

• include -KFGDef.h" 
•include "KFGProgList.h" 

• include <algorithin> 



void KFGListC: :TokenList2KFGList(KFGTokenList.C & LI) { 
int dummy; 

KFGTokenListCt : iterator TLI - Ll.end<); 
KFGP_UseListC: : iterator P__USEI; 
KFGUseListC: : iterator USEI; 
dummy — 0; 

//while {strcmp(TLI->getName( ), •main") 0) { 
while ( fTLI !* Ll-begin()) && (dummy !« 1)) { 
if (TLI->getTokenNodeTypet) = N) { 

if ( strcmpt TLI ->getName (), "main") 0) { 
dummy » 1; 

) 

> 

//TLI++; 

switch (TLI->getTokenNodeType( ) ) i 
case PL: 

{ 

TLI~; 

KFGListNodeC hNl ("NORMAL-, NO, TLI ->getScopeLevel ( J ,TLI- 

>getLineNumber ( ) ) ; 

hNl.Defs.push_back(KFGDefC(TLI->getName( ) ,TLI- 

>getScopeLevel ( ) ) ) ; 

push_f ront (hNl ) ; 
TLI—; 

} 

break; 
/♦case IF: 

push_front( KFGListNodeC ("IF", IPC, TLI->getScopeLevel ( ) ) ) ; 
TLI — ; 
break;*/ 
case BT: 

//push_front (KFGListNodeC ("BT",BTh,TLI->getScopeLevel ( ) ) ) ; 
TLI~; 

//KFGP^UseListC: : iterator P_USEI; 

KFGListNodeC hNl ( "IFCOND", IFC,TLI->getScopeLevel ( ) ,TLI- 

>getLineNumber ( ) ) ; 

while (TLI->getTokenNodeType ( ) != IF) { 

KFGUseC hUsel ( TLI->getName ( ) , TLI->getScopeLevel ( ) ) ; 
P_USEI = 

f ind( hNl. Pauses. begin ( ) ,hNl . P_Uses.end ( },hUsel) ; 

if (P_USEI ««= hNl.P_Uses,end{ ) ) { 

hNl . P_Uses .push_back ( hUsel ) ; 
Anzahl P Uses+-t-; 

} 

//hNl.p_Uses.push_back( KFGUseC r TLI ->getName( ) ,TLI- 

>get Scope Level ( ) ) ) ; 

TLI--; 

} 

push_f ront ( hNl ) ; 
Entscheidungen++ ; 

) 

break; 
case ET: 

push_front (KFGListNodeC f "ENDTHEN" , ETh, TLI ->getScopeLevel ( ) ) ) ; 
TLI — ; 
break; 
case BE: 

push_f ront (KFGListNodeC("BEGINELSE",BEl,TLI->getScopeLevel ( ) ) ) ; 
TLI — ; 
break; 
case EE: 

push^f ront (KFGListNodeC ("ENDELSE",EEl,TLI->getScopeLevel<) ) ) ; 
TLI—; 
break; 
/♦case WHILE: 

push_f ront (KFGListNodeC ("WHILE", LC, TLI ->getScopeLevel () ) ); 
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TLI--; 
break;*/ 
case BW: 

//push_front(KFGListNodeC("BW*,BL,TLI->getScopeLevel ( ) ) ) ; 

{ 

//KFGP_UseListC: : iterator P_USEI; 

KFGListNodeC hNl ( "LOOPCOND" , LC,TLI->getScopeLevel ( ) , TLI- 

>aetLineNuinber ( ) ) ; 

while (TLI->getTokenNodeType() !« WHILE) ( 

KFGUseC hUsel (TLI->getNaine ( ) ,TLI->getScopeLevel ( ) ) ; 
P_USEI • 

findlhNl.P Uses. begin{ ), hNl . P Uses . end ()# hUsel ) ; 

- "if (P__USEI hNl.P_Uses.end() ) { 

hNl . P_Uses .push_back ( hUsel ) ; 
An2ahl_P_Uses++; 

) 

/ /hNl. P__Uses.push_back( KFGUseC t TLI ->getName() ,TLI- 

>getScopeLevel { ) ) ) ; 

TLI""""/ 

} 

push_front(hNl); 
Schleifenentscheidungen++; 

) 

break; 
case EW: 

push_f ront (KFGListNodeC ("ENDLOOP", EL, TLI ->get Scope Level { ) ) ) ; 
TLI — ; 
break; 
case BDOH: 
{ 

TLI — ; 

KFGListNodeC hNl ( "DOWHILELOOPCOKD", DOWLC,TLI- 
>getScopeLevel ( ) ,TLI->getLineNuniber { ) ) ; 

while (TLI->getTokenNodeTypen != DCWS) { 

KFGUseC hUsel (TLI->getName ( ) , TLI->getScopeLevel { ) J ; 
P_USEI « 

find ( hNl . P Uses . begin { ) , hNl . P_Uses . end ( ) , hUsel ) ; 

~ if (P_USEI hNl.P_Uses.end( ) ) { 

hNl . P_Uses .push_back (hUsel ) ; 
Anzahl_P_Uses++ ; 

) 

hNl.P_Uses.push_back ( KFGUseC t TLI ->getName {) ,TLI- 

>getScopeLevel ( ) ) ) ; 

TLI—; 

) 

push_f ront (hNl) ; 

1 

break; 
case DO: 

push front (KFGListNodeC ("DOWHILELOOP-^DOWL, TLI ->getScope Level ( ) ) ) ; 
TLI--; 

Schi ei f enentscheidungen++ ; 
break; 
case EF: 

{ 

//TLI—; 
int HLevel; 

HLevel = TLI->getScopeLevel () ; 

push_f ront (KFGListNodeC ( "ENDIX>OP", EL, TLI ->get Scope Level () ) ) j 
//while (TLI->getTokenNodeType( ) !« BF) { 
while ( (TLI->getTokenNodeType ( ) !« BF) I) (TLI- 
>getScopeLevel { ) != HLevel)) { 

TLI—; 

) 

TLI — ; 

if (TLI->getTokenNodeType( ) PF) 
TLI—; 

KFGListNodeC hNl ( "NORMAL" , NO, TLI->getScopeLevel { ) , TLI- 



>getLineNuznber ( ) ) ; 
>getScopeLevel ( ) ) ) ; 

>getScope Level { ) ) ) ; 



hNl . Def s - push_back ( KFGDef C (TLI->getName ( ) , TLI- 
Anzahl Defs++; 

hNl .Uses .push_back ( KFGUseC (TLI- >getNanie ( ) , TLI- 

Anzahl_Uses++; 
push_f ront (hNl); 

//while (TLI->getTokenNodeType( ) != EF) { 
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while ( (TLI->getTokenNodeType ( ) !« EF) II (TLI- 



break; 
case FOR D: 



>getLineNuinber ( ) ) ; 



} 

TLI— ; 

Zaehlschleif enent:scheidun9en++; 
Schleif enentscheidungen++; 



TLI — ; 

KFGList-NodeC hNl ( "LOOPCCWD" , LC, TLI- >get. Scope Level { ) ,TLI- 



>getScopeLevel ( ) ) ) ; 



while (TLI->getTokenNodeType{ ) !« DEF) { 

KFGUseC hUsel (TLI->getNanie ( ) ,TLI->get.ScopeLevel ( ) ) ; 
P_USEI « 

find(hNl.P_Uses. begin ( ) , hNl . P_Uses. end ( ) , hUsel ) ; 

if (P^USEI =« hNl,P_Uses.end()) { 

hNl . P_Uses . push_back (hUsel ) ; 
Anzahl_P Uses++; 

} 

//hNl . P_Uses.push_back (KFGUseC (TLI ->getName ( ) ,TLI- 
TLI— ; 

) 

push_f ront (hNl ) ; 
TLI — ; 

KFGListNodeC hN2 ( "NORMAL" , NO, ( TLI ->getScopeLevel ( ) -1 ) , TLI- 
hN2.Defs.push_back(KFGE)efC(TLI->getName( ), (TLI- 

Anzahl_Def S++ ; 
push_f ront (hN2) ; 
TLI — ; 



>getLineNuinber ( } } ; 
>getScopeLevel O"!)) ) i 



) 



>getLineNuinber ( } } ; 

>getScopeLevel ( ) ) 1 ; 
>getScopeLevel ( ) ) ) ; 



break; 
case RET: 

//Nur eine voriaufige Iit^lementierung; muB noch erweitert werden 
//fOr den Fall, daB nach dem RETURN eine Ausgabe folgt. 
push_f ront ( KFGListNodeC ( "RETURN" , RETURN , TLI ->getScopeLevel ( ) ) ) ; 
TLI — ; 
break; 
case NL: 

TLI—; 

//Knoten erzeugen, der Defs und Uses enthait; 
if (TLI->getTokenNodeType ( ) »«= N) { 

KFGListNodeC helpNodel ( "NORMAL", NO, TLI ->getScopeLevel ( ) ,TLI- 



TLI — ; 

if (TLI->getTok€nNodeType( ) = NL) { 
TLI++; 

helpNodel . Def s .push_back (KFGDef C (TLI->getName ( ) ♦TLI- 
Anzahl^Def s++; 

helpNodel .Uses. push_back (KFGUseC (TLI ->getNajne( ) ,TLI- 

Anzahl_Uses++ ; 
TLI — ; 



else { 



>getScopeLevel ( ) ) ; 



TLI++; 

while (TLI->getTokenNodeType( ) != DEF) { 
KFGUseC hUsel (TLI->getName ( ) ,TLI- 



USEI =s 

find (helpNodel. Uses, begin ( ), helpNodel .Uses . end ( ) ,hUsel) ; 

if (USEI helpNodel. Uses.end( ) ) { 

helpNodel . Uses .push_back ( hUsel ) ; 
Anzahl Uses++; 

} 

/ /helpNodel . Uses . push_back ( KFGUseC ( TLI- 
TLI — ; 



>getNaine.( ) ,TLI->getScopeLevel ( ) ) ) ; 



TLI — ; 
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helpNodel.Defs.push_back(KFGI>e£C(Tl.I->getName( ) ,TLI- 
>9etScopeLevel ( ) ) ) ; " 

TLI— •; 

Anzahl_De f s++ ; 

If (TLI->getTokenNodeType( ) —» N) ( 
helpNodel.Defs.pop_£ront ( ); 
Anzahl^Defs— ; //in 
diesem Fall handelt es sich um ein Array und ' 

//daher muB der letz^e Knot en wleder gelfischt werden. 

TLI++; 

//DafQr roufi der gelfischte Knoten in die Use-Liste eingetragen werden. 

KFGUseC hUse2 (TLI->getName ( ) , TLl- 

>getScopeLevel { ) ) ; 

USEI - 

flnd(helpNodel. Uses. begin ( ) ^ helpNodel .Uses.end ( ] ,hUse2) ; 

if (USEI ~ helpNodel.Uses.end( ) ) { 

helpNodel .U8es.push_back(hUse2) ; 
Anzahl Uses++; 



>getName ( ) , TLI->getScopeLevel ( ) ) ) ; 
>getName ( ) , TLI->getScopeLevel 



) 

TLI — ; 

helpNodel . Def s .push_back (KFGDefCCTLI- 
help^odel .Uses .push_back (KFGUseC (TLI- 

Anzahl_De f s++ ; 
Anzahl_Uses++ ; 
TLI--; 



) 



>getLineNumber ( ) ) ; 
>getScopeLevel {))) i 



>getLineNuznber ( } ) ; 
>get Scope Level ( ) } ) ; 
>getScopeLevel ( ) ) ) ; 



>getLineNujnber ( ) ) ; 
>getScopeLevel ( ) ) ) j 



} 

push_f ront (helpNodel ) ; 

} 

//Knoten erzeugen, der nur Defs enthSlt; 
else if (TLI->getTokenNodeType( ) DEF) { 
TLI — ; 

KFGListNodeC helpNodel { "NORMAL", NO, TLI ->getScopeLevel ( ) ^TLI- 
helpNodel .Def s .push_back (KFGDefC{TLI->getName ( ) ,TLI- 

push_f ront (helpNodel ) ; 

Anzahl_Defs++; 

TLI — ; 

) 

else if (TLI->getTokenNodeType( ) =« PF> { 
TLI — ; 

KFGListNodeC hNl ( "NORMAL" , NO, TLI->getScopeLevel ( ) , TLI- 

hNl.Defs.push_back(KFGDefC(TLI->getName( ) ,TLI- 

hNl.Uses.push_back (KFGUseC (TLI ->getName ( ) ,TLI- 

push_f ront (hNl ) ; 
Anzahl_Def S++ ; 
Anzahl Uses++; 

} 

//Knoten erzeugen, der Output-Variablen enthait; 
else { 

TLI—; 

KFGListNodeC helpNodel ( "OUTPUT* , OP, TLI->getScopeLevel ( ) , TLI- 

he IpNodel. Us es .push_back (KFGUseC (TLI ->getNaine ( ) ,TLI- 

push_f ront (helpNodel ) ; 
Anzahl_Uses++ ; 
TLI — ; 



default: 



} 



Anwe i sunge n+ + ; 
break; 

TLI — ; 



) 

KnotenNuinroem ( ) ; 

KFGListC: : iterator KFG « beginO; 
Knotenldentif izierer (KFG) ; 
addLinelnToList ( ) ; 

Anzahl_Deklarationen zaehleDeklarationen( LI ) j 
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void KFGListC: :KnotenNuininem{ ) { 
int KnotenNr «= 1; 

KFGListC: : iterator KFGl « beginO; 
while (KFGl !• endO) { 

if ( (KFGl->getKFGNodeType( ) — EL) II (Kroi->getKFGNodeType ( ) = ETh) It 
(KFGl->getKFGNodeType( ) -= BED 11 (KFGl->getKFC»JodeType { ) — EEl) ) { 
KFG1++; 

) 

else ( 

KPGl->setFCFGKnotenNuinmer (KnotenNr ) ; 

KnotenNr++; 

KFG1++; 

) 

} 

) 



void KFGListC: : Knot enldentifizierer (KFGListC:: iterator KFG) { 
int LOOPLevel = 0; 
int THENLevel = 0; 
int ELSELevel « 0; 
KFGListC: : iterator KFGl •= KFG; 
KFGListC: : iterator LOOPIT « KFG; 
KFGListC: : iterator I FIT « KFG; 
KFGListC: : iterator ELSEIT » KFG; 
while (KFGl !» end()) ( 

switch ( KFGl ->ge tKFGNodeType ( ) ) { 

case LC: 
{ 

LOOPLevel * KFGl->getLevel () ; 
KFG1++; 

LOOPIT » KFGl; 

^ile ( (KFGl->getKFGNodeType( ) != EL) H ( KFGl ->get Level ( ) ! = 

LOOPLevel ) ) { 

KFGl->setKnotenIdent ( LOOP) ; 
KFG1++; 

) 

Knotenldentif izierer (I-OOPIT) ; 

} 

brea)c; 
case IFC: 
{ 

THENLevel « KFGl->getLevel ( ) ; 

KFG1++; 

I FIT = KFGl; 

while ( (KFGl->getKFGNodeType t J !«ETh) It (KFGl->getLevel () 

!- THENLevel) ) { 

KFGl->setKnotenIdent (THEN) ; 
KFG1++; 

} 

Knotenldentif izierer (IFIT) ; 

} 

break; 
case BEl: 
{ 

ELSELevel •= KFGl ->get Level ( ) ; 
KFG1++; 

ELSEIT = KFGl; 

vrtiile ( (KFGl ->ge tKFGNodeType ( ) != EEl) I I { KFGl ->get Level ( ) 

ELSELevel)) { 

KFGl ->setKnotenIdent (ELSE) ; 
KFG1++; 

} 

Knotenldentif izierer (ELSEIT) ; 

} 

brea)c; 
default: 

//cout « "Autsch" « endl; 
KFG1++; 

} 

//KFG1++; 

} 

) 
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void KFGListC: laddLinelnToList ( ) { 
Int. zahl; 
char line [256 J; 
KFGProgListC LP; 
if stream datei (*CodeiJ.ne-dat" ) ; 
if (!datei) { 

cout « "ERROR: Cannot open file 'CodeLine.dat*." « endl; 

) 

else { 

while ( !datei.eof { ) ) { 

datei.getlinedine, 255, 'XnM; 
for (int i-»0; i<strlen (line) ; i++) { 
if (linefij { 
lineCiJ * '\'*; 

} 

if (lineri) •{') { 
lined] » 

) 

} 

zahl » atoidine); 

KFGLineNodeC hknoten { line, zahl ) ; 

LP.push_back (hknoten) ; 

//cout « line « " " « zahl « endl; 

} 

} 

addLineToKP6{LP) ; 

) 



void KFGListC: :addLineToKFG(KFGProgListC & LP) { 
int diimmy = 0; 
char help [256]; 

KFGListC: : iterator KFGl ■ endO; 
KEXSProgListC: : iterator PROGl * LP.endO; 
//KFGl— ; 

vhLle (KFGl !- beginO) { 
KFGl — ; 

if ( tKFGl->getKFGNodeType() «= EL) il (KFGl->getKFGNodeType ( ) « ETh) II 
(KFGl->getKFGNodeType( ) ««BE1) II { KFGl->getKFGNodeType ( ) -= EEl) ) { 
KFGl — ; 

} 

while ((PROGl !«= LP.beginO) && (dummy !-= D) { 

if (KFGl->getLineNr( ) «-= PROGl ->ge tLineNumber () ) { 
strcpy (help, PROGl ->getName () ) ; 
KFGl ->setCodeLine (help) ; 
PROGl — ; 
dummy = 1; 



> 

else{ 



PROGl— 



) 

PROGl » LP.endO; 
dummy = 0; 



int KFGListC: :zaehleDeklarationen{KFGTokenLlstC & TL) { 
int zaehler « 0; 

KFGTokenListC: literator TListI = TL.end(); 
while {strcmp(TListI->getName( ) ,"main-) !-= 0) { 
if (TListI->getTokenNodeType{) == TD) { 
zaehler++; 

} 

TListI — ; 

) 

return zaehler; 



//Funktion 2ur Ausgabe der KFGList auf den Bildschirm und in eine Datei "CFGList". 
void KFGListC: :ListeAusgeben( ) { 

of stream Ziell ( "CFGList . cf g" ) ; 

ostream_iterator<KFGListNodeC> Pos(Ziell, "Xn**); 
ostream_iterator<KFGDefC> PosD(Ziell, "\n"); 
ostream_iterator<KFGUseC> PosU(2iell, "Vn"); 
ostream_iterator<KFGUseO PosP(Zi€ll, "\n"); 
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KFGListCz : iterator KLI = beglnO; 
KFGDef Lis tC: : iterator DEF; 
KFGfUseListC: : iterator USE; 
KFGP_Usel*istC: : iterator P_USE; 
Ziell « "START* « endl « endl; 
vrtiile (KLI endO ) { 

Ziell « "Line " « KLI->getLineNr () « endl; 

Ziell « "Zeile • « KLI->getCodeLine () « endl; 

Ziell « "Knoten " « KLI->getKnotenNiinimer () « endl; 

Ziell « "KnotenTyp " « KLI->getKnotenIdent ( ) « endl; 

Ziell « KLl->getStatement () « " " « KLI->getLevel { ) « endl; 

//*Pos++ e ♦KLI; 

DEF ■= KLI->Defs.begin(); 

USE = KLI->Uses.begin( ) ; 

P_USE - KI*I->P__Uses.begin( ); 

while (DEF !- KLI->Def s .end() ) { 
//♦POSD++ = *DEF; 

Ziell « "DEF: * « DEF->getDef ( ) « ■ " « DEF- 

>getScopeLevelD( ) « endl; 

DEF++; 

} 

**iie (USE != KLI->Uses.end() ) { 
//♦POSU++ = ♦USE; 

Ziell « "USE: " « USE->g€tUse() « " " « USE- 

>getSccpeLevelU ( ) « endl; 

USE++; 

} 

whi 1 e ( P_USE ! = KLI ->P_Uses . end ( ) ) { 
//♦POSP++ • •P^USE; 

Ziell « "P_USE: " « P_USE->getUse () « " " « 

P USE->getScopeLevelU ( ) « endl; 

P_USE++; 

) 

Ziell « endl; 
KLI++; 

} 

Ziell « "STOP" « endl « endl; 

Ziell « "BASISGROESSEN:" « endl; 

Ziell « "Anzahl leerer Zweige: " « "0" « endl; 

Ziell « "Anzahl Entscheidungen: " « Entscheidungen « endl; 

Ziell « "Anzahl Anweisungen: " « Anweisungen « endl; 

Ziell « "Anzahl atomarer Pradikater " « Entscheidungen « endl; 

Ziell « "Anzahl Pradikate: " « Entscheidungen « endl; 

Ziell « "Anzahl atomarer Pradikate, die arithm. Relationen sind: " « "0" « endl; 
Ziell « "Anzahl Schleif enentscheidungen: " « Schlei fen entscheidungen « endl; 
Ziell « "Anzahl nicht eingeschachtelter Schleif enentscheidungen; " « "0" « endl; 
Ziell « "Anzahl Zahlschleif enentscheidungen: " « Zaehlschleif enentscheidungen « 

endl; 

Ziell « "Anzahl Deklarationen von strukturierten Datentypen: " « "0" « endl; 

Ziell « "Anzahl Deklarationen: " « Anzahl^Deklarationen « endl; 

Ziell « "Anzahl Realelement-Deklarationen: " « "0" « endl; 

Ziell « "Anzahl Basistyp-Deklarationen: " « Anzahl_Deklarationen « endl; 

Ziell « "Anzahl Defs: * « Anzahl_Defs « endl; 

Ziell « "Anzahl Uses: " « Anzahl_Uses « endl; 

Ziell « "Anzahl P-Uses: " « Anzahl_P_Uses « endl « endl; 

basisgroessenlnDatei ( } ; 



void KFGListC: ibasisgroessenlnDatei ( ) { 

of stream datei ("Basisgroessen.bgd", ios::out); 

datei « "0" « endl; 

datei « Entscheidungen « endl; 

datei « Anweisungen « endl; 

datei « Entscheidungen « endl; 

datei « Entscheidungen « endl; 

datei « "0" « endl; 

datei « Schleif enentscheidungen « endl; 
datei « "0" « endl; 

datei « Zaehlschleif enentscheidungen « endl; 
datei « "0" « endl; 

datei « Anzahl_Deklarationen « endl; 
datei « "0* « endl; 

datei « Anzahl_Deklarationen « endl; 

datei « "O" « endl; 

datei « Anzahl_Defs « endl; 

datei « Anzahl_Uses « endl; 

datei « Anzahl P_Uses « endl; 
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dat,el « "0" « endl; 

datei « "0" « endl; 

datei « "0- « endl; 

dat.el « "0" « endX; 

datei « "0" « endl; 

datei « "0" « endl; 

dat.ei « "0" « endl; 

date! « "0" « endl; 



# include "KFGListe.h" 
□ 

D 

KFGListeT KFGListe; 
□ 

30 □ 

void KFGListeAusgeben (KFGListeT & L) { 
□ 

KFGListeT: : iterator I = L.beginO; 

D 

35 whiled !« L.endO) 

cout « *!++ « • 
cout « " sizeO = « L.sizeO « endl; 

) 



#include "KFGListNode.h* 
Q 

#lnclude <iostreain> 
□ 



□ 

ost reams operator « ( ostreara& os, const KFGListNodeC* Node) ( 

O 

OS « endl « "KnotenNr:" « Node , KnotenNr « " Typ:" « Node. Knot enldent « 
50 endl « Node . Statement « * Level:* « Node. Level; 
return os; 

} 



int KFGListNodeC: :DuinmyNodeNr«l; 



□ 

# include "KFtaiode.h- 
60 □ 

#include <iostrcain> 
□ 

□ 

65 ostreain& operator « ( ostream& os, const KFGNodeCfi Node) ( 

□ 

OS « Node. Name « * " « Node. ScopeLevel; 
return os; 

) 



#xnclude "KFGTokenList.h" 
□ 



75 □ 

D 
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void KFGTolcenListC: :KFGLlsteAusgeben ( ) { 
□ 

of stream Ziel ("CFGTokenList" ) ; 

□ 

ostream ltera^or<KFSTokenNodeO oPos(Zi.eX, ■\n*); 

D 

KFGTokenListC: : iterator 1 - beginO; 

□ 

while (I !» end{ ) ) { 

//♦OPOS++ « I->getNa]ne{ }; 
♦0P0S++ « 

//cout « I->getName() « " " « I->getScopeLevel ( ) « - " « i- 
>getTokenNocleType () « endl; 

I++; 

> 

cout « " sizeO » ■ « sizeO « endl; 



#include "KFGTokenNode. h* 
iinclude <ios'trea2n> 

ostream& operator « ( ostream* os, const KFGTokenNodeC& Node){ 

OS « Node. Name « " « Node. Scope Level « " " « Node .TokenNodeType « 
" « Node.LineNumber « endl; 

return os; 

) 



iinclude "KFGUse.h" 
□ 

#include <iostream> 

ostreamt operator « ( ostreamfi os, const KFGUseCfi Node){ 

OS « "USE: " « Node. Use « " •» « Node. ScopeLevelU; 

return os; 

) 



/* 

D 

* Main program to test C++ grammar and preprocessor 

a 

□ 



□ 

#include "JLStr.h" 
□ 

#include tokens. h" 
O 

♦include "DLGLexer.h" 
iinclude "Buf f eredCPreParser .h* 
iinclude "CPreToCPPBuf fer-h" 
iinclude "JLTokenBuf fer .h" 
iinclude "CPPParserSym.h* 
iinclude "KFGTokenList.h" 
iinclude "KFGList.h" 
iinclude "graph. h" 
iinclude "AS_Slice.h* 
iinclude "uwggraph.h" 
iinclude "KFGProgList .h" 
iinclude <io5treain> 

static void usage (char* progname); 

int maindnt argc, char *argv{l) 
{ 

// For reporting memory usage 
char *p « new char [ 100000] ; 
long heapl = (long) (void* )p; 
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delete [] p; 

// Parse cointnand-line options 
JLStr includePath; 
JLStr definitions; 
FILE * input File « stdin; 
bool doTraceParse » false; 
bool doTracelnclude « false; 
bool doDump *= false; 
char *progname = *argv; 

argc — ; 
argv++ ; 

of stream dateiCCodeLine.dat", ios::trunc); 

while (argc > 0) 

if (argvtOl (0) =-= '-M 
{ 

switch (argv[OJ[l]) 

{ 

case 

if (argvlO] [2J !- 0) 

{ 

// arguntent is part of 

includePath +- ' ; ' ; 

includePath &argv 101(2]; 
} else if (argc > 1} 
{ 

argc — ; 
argv++; 

includePath += ' ; " ; 
includePath » *argv; 
) else { 

usage (progname ) ; 

} 

break; 
ease 'd': 

if (strcmp(argv{01 , "-dun^j") = 0) 

{ 

do Dump ** true; 

} 

break; 
case *D*: 

if <argv[01 (21 !- O) 
{ 

// argument is part of "-D" 

definitions ' ; * ; 

definitions &argv[0]!21; 
) else if (argc > 1) 
{ 

// argument follows "-D" 

argc**; 

argv++; 

definitions • ; • ; 
definitions = *argv; 
) else { 

usage (progname ) ; 

} 

break; 
case ' t' : 

if (strcrop(*argv, "-traceParse" ) = 0) 
{ 

doTraceParse true; 
) else if (strcmp(*argv, "-tracelnclude" ) ~ 0) 
{ 

doTracelnclude « true; 
) else { 

usage (progname ) ; 

) 

break; 
default: 

usage (progname ) ; 
break; 

) 

1 else { 

// must be the input filename 
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if (Input File !• stdln) 

{ 

// already have one 
usage (progname } ; 

} 

FILE ♦fp = fopen(*argv, "r"); 
if (fp «-= NULL) 

{ 

fprintf (stderr, "%s: cannot open %s for inputNn", progname, *argv) ; 
exit(O); 

} 

input File « fp; 

} 

argc--; 
argv++; 

} 

//printf ("%s\n*s\n%s\n''r includePath, definitions, inputFile) ; 

// Create input stream, lexer 
DLGFile Input input (ii^ut File) ; 
DLGLexer scanner ( & input ) ; 
FastToken tok; 
scanner- setToken(ttolc) ; 

// Create preprocessor parser. Note that the preprocessor parser has 
// a built-in token buffer in the form of an input stack. 

Buf f eredCPreParser preprocessor { ^scanner ) ; 

preprocessor . init ( ) ; 

// set include path and defines directly for debugging 

if ( includePath. length () — 0) 

{ 

includePath « "c: \\devstudio\\vc\\include; \\msdev\\devstudio\\vc\\mf cWinclude"; 

if (definitions. length () — 0) 
{ 

definitions « 

* cplusplus; * 

" nATE_*-\ "date\ • ; 

" FILE »\ * f i 1 enaineX " ; • 

" LINE ^»1;- 

- TIME ^»\-time\*;" 

" TIMESTAMP «\"tiroestan¥>\";" 

"_M_IX86=400;'* 

"_MSC_VER=1100;* 

"_WIN32;- 

•♦_INTEGRAL_MAX_BlTS-64 " ; 

} 

// Set preprocessor options 

preprocessor . Set IncludePath ( includePath ) ; 

preprocessor. Set Definitions (definitions) ; 

// Set options in parser to make it act standard with MS Extensions 
preprocessor. SetOption(CPreParserImp: : Op tMSEx tens ions, true) ; 
preprocessor . SetOption ( CPre Parser Imp : : OptBool , t rue ) ; 
preprocessor. SetOption(CPreParserlTOp: :OptWCharT, true) ; 
preprocessor. SetOption (CPre Pa rserlnqp: :OptPragmas, true); 
preprocessor. SetC^tionCCPreParserlmp: iC^tExpandPragmas, true) ; 
preprocessor. SetOption (CPre Pa rserimp: :ci>tTrackInclude, doTracelnclude) ; 

// Buffer to store tokens output by preprocessor 
CPreToCPPBuf f er pipe2 ( &preprocessor ) ; 

// Connect preprocessor to second token buffer so that the 

// preprocessor can unilaterally squirt new tokens into the buffer 

preprocessor . SetBuf f er ( &pipe2 ) ; 

// Token buffer for the usual backtracking, etc. 
JLTokenBuf fer pipe3 ( &pipe2, CPPParserSyro: : ConstLLK) ; 

// Create the C++ parser 
CPPParserSym parser ( &pipe3 } ; 

// Set parser options to look like MSVC++ 

parser. SetOption (CPPParserSym: rqptPragmaMSPacking, true) ; 
parser . SetOption (CPPParserSym: : C^tMSTypedef Hack, true ) ; 
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//preprocessor. doTrace (doTraceParse ) j 
parser - doTrace (doTraceParse) ; 

// Process top-level rule 
parser . Inlt ( ) ; 

KFGTokenListC LI; 

parser . i:ranslation_unlt ( LI ) ; 



// Close the input file stream 
if (inputFile I- stdin) 

{ 

f close (inputFile) ; 

15 } 

// For reporting memory usage 
// For reporting memory usage 
p o new char (100000) ; 
20 long heap2 « ( long) (void* )p; 

delete [ ] p; 

cout « "Approx heap usage before dump; " « (heap2 - heapl) « endlj 
i f ( doDump ) 

25 { 

// Dump the scope hierarchy 

cout « "Dunqp of scope hierarchy" « endl; 

parser . EhanpScopes ( ) ; 

cout « endl; 

30 ) 

// For reporting memory usage 
// For reporting memory usage 
p « new char [100000] ; 
35 long heap3 = (long) (void* )p; 

delete 11 p; 

cout « "Approx heap usage after dump: " « (heap3 - heapl) « endl; 
LI . KFGListeAusgeben ( ) ; 
//LI . KFGTo)cenListToKFGList ( ) ; 



KFGListC L2; 

//KFGListC: : iterator Iter; 
L2.TokenList2KFGList(Ll) ; 
L2 . ListeAusgeben ( ) ; 

SliceC Slice; 

Slice . startBuildSlice ( L2 ) ; 
//Slice. bui IdTestGr aph ( L2 ) ; 
//cout « Slice; 

uwgg raphe uwggraph; 
/ /uwggraph. bui Idlf Tree (Slice) ; 
uwggraph. startBuildFT (Slice) ; 
cout « uwggraph; 

return 0; 



static void usage (char* progname) 

60 ( 

fprintf ( 
stderr, 

"usage: %s (-1 directories] (-D definitions) (-traceParse) t -tracelnclude } ( -o 
ofilel [ifilejXn- 

65 " -I directories: semicolon-separated list of include directoriesSn" 

« -D definitions: semicolon-separated list of definitions, like:\n" 

" symboll; symbol 2=value2\n'' 

" -traceParse: output debugging inf ormationXn" 

" -tracelnclude: output trace of include stac)t\n" 
70 " -dump: dun¥> type and scope hierarchyXn" 

* ifile: name of input file (otherwise it uses stdin) Xn", 

progname 

); 

exit(l); 

75 ) 



« include <iostream> 
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# include <iterator> 
i include <algorithin> 
# include <fstreain> 
# include "uwggraph.h" 

using namespace stid; 

SliceC: : iterator uwggraphC: : f indOutputNode (SliceC & SI) { 
int dunany « 0; 

SliceC: : iterator SLl - Sl.begin(); 

SliceC: : iterator HELP « Sl.beginO; 

while ((SLl Sl.endO) && (dummy != 1)) ( 

if ( (*SL1) .first. getKFGNodeType( ) — OP ) { 

HELP - SLl; 

dummy « 1; 

} 

SLl ++; 

} 

return HELP; 

} 



void uvfggraphC: : startBuildFTt SliceC i SI) { 
int posl ■ 0; 
int Posil - 0; 
int SliceNr « 0; 
int LineNr * 0; 
int inLoop 0; 
SI i ceAusgeben ( SI ) ; 
char NodeTextI1281; 
char Bemerkung (1000) ; 

SliceC: : iterator SLl - f indOutputKode (SI ) ; 
SliceNr - (* SLl ). first .getKnotenNummer () ; 
LineNr - (*SL1 ). first. getLineNr () ; 
sprintf (KodeText, "Op%d" , SliceNr ) ; 
strcpy(Bemerkun9rSLl~>f irst.getCodeLine ( ) ) ; 
//sprintf (Bemerkxing, "Line %d", LineNr) ; 

SliceC: iNachfolger: : iterator BEGIN = (^SLl ). second. begin {) ; 
SliceC: :Nachfolger: : iterator END » (♦SLl) .second, end () ; 
while (BEGIN !> END) { 

if (BEGIN->second ^ KFK) ( 

uwgknotenC hknotenl (EFFECT, SliceNr, NodeText, Bemerkung) ; 

Posil « insert (hknotenl ) ; 

SliceC: : iterator SLPUSE = f indLastPUse (SI, SliceNr); 
checkLoopOrCond(Sl, SLPUSE, SLl, Posil); 
inLoop « 1; 
BEGIN++; 

} 

else { 

BEGIN++; 

) 

) 

if (inLoop 0) { 

uwgknotenC hknotenl (EFFECT, SliceNr, NodeText, Bemerkung) ; 
uwg)cnotenC hknoten2 ( OR, "OR" ) ; 
insert ( hknotenl , hknoten2 , 0 ) ; 
posl « size()-l; 

uwgJcnotenC hknoten3 (CAUSE, SliceNr, NodeText, Bemerkung) ; 
insert (hknoten2,hknoten3, 0) ; 
addFirstNodesTorr(Sl, SliceNr, posl); 

> 

check { ) ; 

} 



void uwgg raphe : :checkLoopOrCond( SliceC & SI, SliceC: : iterator SLPUSE, SliceC: : iterator 
SLORIG, int Posl) ( 

int PosRet = 0; 

switch (SLPUSE->first.getKFGNodeType( ) ) { 
case IFC: 

PosRet = buildInIfTree(Sl, SLPUSE, SLORIG, Posl); 

//cout « "Testla: " « SLHELP-> first .getKnot enNummer ( ) « endl; 
break; 
case LC: 

buildlnLoopTree (SI, Posl, SLPUSE, SLORIG); 

//cout « "Testlb: " « SLHELP->f i rst . getKnotenNuxnmer ( ) « endl; 
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brealc; 
default: 

cout « "Ups" « endl; 

) 

) 

void uwggraphC: :addFirstNodesTorT(SliceC t SI, int KnotenNr, int Posl) { 
int helpNr « 0; 
int ret - 0; 
int pos « 0; 
int KnotenNrl "0; 
int LineNrl • 0; 
char NodeTextI128) ; 
char Bemerkung[1000) ; 

SliceC: : iterator NODE «* def inelterator {SI, KnotenNr); 
SI iceC: ;Nachfolger: : iterator BEGIN » NODE->s econd. begin () ; 
SliceC: rNachfolger: : iterator END = NODE->second.end () ; 
while (BEGIN !« END) { 

helpNr « BEGIN->first; 

KnotenNrl * SI f helpNr] . first .getKnotenNummer ( J ; 
SliceC: : iterator NODEl «= definelterator (SI, KnotenNrl ) ; 
if (NODEl->first.getLevel( ) > 1) { 

SliceC: : iterator FUSE « findLastPUse (SI, KnotenNrl); 

switch (PUSE->first.getKFGNodeType( ) ) { 

case IFC: 

ret » buildlnlfTree (SI, FUSE, NODEl, Posl ) ; 
break; 
case LC: 

buildlnLoopTree (SI, Posl, PUSE, NODEl } ; 
break; 
default: 

cout « "Something is wrong!" « endl; 

) 

) 

else { 

LineNrl - SI (helpNr) . first . getLineNr () ; 
sprintf (NodeText, "Op%d", KnotenNrl ) ; 
//sprintf (Bemerkung, "Line %d", LineNrl ) ; 
strcpy(Bemerkung,Sl IhelpNr] , first, getCodeLine ( ) ) ; 
uwgknotenC hknotenl ( CAUSE, KnotenNrl,NodeText,Bemerkung) ; 
pos = insert (hknotenl ) ; 
verbindeEcken (Posl, pos, 0) ; 
addFirstNodesToFT(Sl, KnotenNrl, Posl); 

) 

BEGIN++; 

1 

) 



SliceC: : iterator uwggraphC: : findLastPUse (SliceC & SI, int SliceNr) { 
int helpNrl - 0; 
int SliceNrl - 0; 

SliceC: :iterator SLl « def inelterator (SI, SliceNr); 
SliceC: :iterator SLHELP SLl; 

SliceC: :Nachfolger: : iterator BEGIN = (♦SLl ). second. begin () ; 
SliceC: :Nachfolger: : iterator END «- ( ♦SLl ). second. end () ; 
while (BEGIN != END) { 

if (BEGIN->second ^ KFK) ( 

helpNrl BEGIN->f irst; 

SliceNrl « SI (helpNrl I .first. getKnotenNummer () ; 
SLHELP = def inelterator (SI, SliceNrl); 
SLHELP = findLastPUse (SI, SliceNrl); 

) 

BEGIN++; 

} 

return SLHELP; 

} 



SliceC: :iterator uwggraphC: : findLastPUse2 (SliceC & SI, int SliceNr, int RefNr) { 
int helpNrl »= 0; 
int SliceNrl 0; 

SliceC: : iterator SLRETURN « def inelterator (SI, SliceNr); 
SliceC: :iterator SLHELP = SLRETURN; 

SliceC: :Nachfolger: : iterator BEGIN « SLRETURN->second. begin () ; 
SliceC: :Nachfolger: :iterator END - S LRETURN->s econd. end () ; 
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while (BEGIN END) { 

if (BEGIN->second KFK) { 

helpNrl " BEGIN->first; 

SliceNrI » SI (helpNrl] .first.. ge^Knot enNuntmer( ) ; 
SLHELP defineIterator(Sl, SliceNrI); 
SLHELP » findLastPUse2(Sl, SliceNrI, RefNr); 
if {SLHELP->first:.getKnotenNuBimer ( ) !• RefNr) ( 
SLRETURN « SLHELP; 

} 

} 

BEGIN<i>+; 

) 

return SLRETURN; 



SliceC; ^iterator uwggraphC: : lookForNextPUse (SliceC & SI, SliceC; : iterator SNODE, Sli- 
ceC: : iterator SLPUSE) ( 

int helpNrl » 0; 

int helpNr2 - 0; 

int helpNrS = 0; 

int dummy « 0; 

int dunimyl = 0; 

int KnotenNrl « 0; 

int KnotenNr2 0; 

int RefNr = SLPUSE->f irst. get Knot enNummer () ; 
SliceC: : iterator HELP = SNODE; 
SliceC: : iterator RETURN = SNODE; 

SliceC: :NachfolgGr: : iterator BEGINl « SNODE->second.begin( ) ; 
SliceC: :Nachfolger: : iterator ENDl = SNOD£->second.end( ) ; 
while ((BEGINl !- ENDl) && (dummy 1}){ 
helpNrl « BEGINl->first; 

SliceC: :Nachfolger: : iterator BEGIN2 = SI (helpNrl ]. second. begin () ; 
SliceC: :Nachfolger: : iterator END2 = SI [helpNrl J ,second.end( ) ; 
while {(BEGIN2 END2} && (duinmyl !*= 1}) ( 
if (BEGIN2->second KFK) { 

helpNr2 = BEGIN2-> first; 

if (SI (helpNr2] .first. getKnotenNummer ( ) !« RefNr) { 

KnotenNrl * SI {helpNr2] . first . getKnotenNummer () ; 
RETURN «= defineIterator(Slr KnotenNrl); 
SliceC: :Nachfolger: : iterator BEGIN3 = RETURN - 



>second . begin ( ) ; 
>second. end ( ) ; 

!- RefNr) { 

SI (helpNr3] . first .getKnotenNummer ( ) ; 
tenNr2, RefNr); 



SliceC: tNachfolger: : iterator END3 = RETURN- 

while (BEGIN3 !« END3) { 

if (BEGIN3->second «= KFK) { 

helpNrB « BEGIN3->f irst; 

if (SI [helpNr3J . first. getKnotenNummer ( ) 

KnotenNr2 « 

RETURN » findLastPUse2(Sl, Kno- 

) 

} 

BEGIN3++; 

} 

duiranyl = 1; 
dummy 1; 



) 

else { 

KnotenNrl = SI [helpNrl I . first. getKnotenNummer () ; 
HELP = definelterator (SI, KnotenNrl); 

RETURN •= loo»cForNextPUse(Sl, HELP, SLPUSE); 

} 

) 

BEGIN2++; 

) 

BEGINl ++; 

} 

return RETURN; 



SliceC: : iterator uwggraphC: : returnCondNode (SliceC & SI, int SliceNr) ( 
int helpNr = 0; 
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int dunnny » 0; 
int duiiimy2 = 0; 
int SliceNr2 « 0; 

SliceC: : iterator SLl « def inelterator (SI, SliceNr); 
SliceC: : iterator HELP - SLl; 

Sliced rNachfolger: : iterator BEGIN • (*SL1 ) .second .begin (} ; 
SliceC: :Nachfolger: : iterator END « (♦SLl ) -second, end () ; 
while ((BEGIN l« END) && (dummy !■ 1)) { 
helpNr « BEGIN->f irst; 

SliceNr SI (helpNr] . first. getKnotenNummer ( ) ; 
HELP » def inelterator (SI, SliceNr) ; 

SliceC: :Nachfolger; literator BEGIN2 = (* HELP ). second. begin () ; 
SliceC: :Nachfolger: : iterator END2 = (♦HELP) .second. end () ; 
while ((BEGIN2 !» EHD2) && (duromy2 !» 11 } { 
if ( (*BEGIN2) .second — KFK) { 
helpNr « (*BEGIN) .first; 

SliceNr2 « SI [helpNr ). first . getKnotenNummer () ; 
HELP • definelterator (SI, SliceNr2); 
dummy2 1; 
dummy =1; 

} 

BEGIN2++; 

} 

BEGXN++; 

} 

return HELP; 



//Funktion untersucht, ob zwei Kontrollstrukturen geschachtelt sind oder nicht. 

int uwggraphC: rcheckPUsesl (SliceC & SI, SliceC: : iterator SLPUSEREF, SliceC: : iterator 

SLPUSE) { 

int helpreturn - 0; 

int KnotenNummerRef » 0; 

int helpNr 1 * 0; 

int KnotenNrl -0; 

KnotenNummerRef = SLPUSE->f irst .getKnotenNummer () ; 
SliceC: :Nachfolger: : iterator BEGINl = SL PUSEREF-> second. begin () ; 
SliceC; :Nachfolger: : iterator ENDl = SLPUSEREF->second. end ( ) ; 
while (BEGINl !- EKDl ) { 

if (BEGINl->second KFK) { 

helpNrl = BEGINl->f irst; 

KnotenNrl = SI (helpNrll - first. getKnotenNummer () ; 
if (KnotenNrl — = KnotenNummerRef) { 
helpreturn = 1; 

) 

else { 

SLPUSEREF = definelterator (SI, KnotenNrl); 
helpreturn checkPUsesl (SI, SLPUSEREF, SLPUSE) ; 

) 

) 

BEGIN1++; 

} 

return helpreturn; 

) 



int juwgg raphe : :checkPUses2 (SliceC & SI, SliceC: : iterator SLPUSEREF, SliceC: : iterator 
SLPUSE) { 

int helpreturn = 0; 

int KnotenNummerRef » 0; 

int helpNrl = 0; 

int KnotenNrl = 0; 

KnotenNummerRef SLPUSEREF->f irst. getKnotenNummer () ; 
SliceC: :Nach£olger: : iterator BEGINl SLPUSE->second. begin () ; 
SliceC: :Nachfolger: : iterator ENDl = SLPUSE->second. end ( ) ; 
vrtiile (BEGINl != ENDl) { 

if ( BEGINl ->second = KFK) ( 

helpNrl «= BEGINl->f irst; 

KnotenNrl = SI (helpNrl ]. first .getKnotenNummer () ; 
if (KnotenNrl == KnotenNummerRef) { 
helpreturn = 1; 

) 

else { 

SLPUSE = definelterator (SI, KnotenNrl); 
helpreturn « checkPUses2 (SI, SLPUSEREF, SLPUSE ) ; 

} 
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} 

BEGINlt'+; 

) 

return helpretum; 



int uwggraphC: ibuildlnlfTreeCSliceC & SI, SliceC: : iterator SLIF, SliceC: : iterator SLORIG^ 
int posl) { 

int pos2 - 0; 

int posl FOR « 0; 

int posIFDFOR « 0; 

int posIFKFOR • 0; 

int posIFDF0RA2 - 0; 

char NodeText[1281; 

char BemerkungflOOOl ; 

int KnotenNr = SLIF->first.get!CnotenNummer ( ) ; 
int LineNr = SLIF->f irst -getLineNr t J ; 
spr int f ( Bemerkung, "Verzweigxing { %d ) " , LineNr ) ; 
strcpytNodeText,SLIF->first.getCodeLine( ) ); 
uwgknotenC hknotenl (OR,NodeText, Bemerkxjng) ; 
pos2 - insert (hknotenl ) ; 
posIFOR = sizeO - 1; 
verbindeEcken (posl, pos2,0); 

sprintf (NodeText, "Verrweigung_KF{%d ) LineNr) ; 
uwgknotenC hknotenS ( OR,NodeText ) ; 
posIFKFOR = insert (hknotenS) ; 
verbindeEcken (pos2,posIFKFOR, 0) ; 
build_IFKF_Part(Sl, posIFKFOR, SLIF); 
switch (SLORIG->first.getKnotenIdent ( ) ) { 
case THEN: 
{ 

sprint f (NodeText , "Verzweigung_DF_Alt , 1 ( %d) " , LineNr ) ; 

uwgknotenC hknoten2 (AND, NodeText ) ; 

insert {hknotenl/hknoten2, 0} ; 

sprintf (Bemerkung,"Alt.a (%d) LineNr); 

sprintf (NodeText, "Alt . 1 ( %d ) " , LineNr ) ; 

uwgknotenC hknoten3 ( CAUSE, NodeText, Berne rkung) ; 

insert (hknoten2, hknoten3, 0) ; 

sprintf (NodeText, "Alt . 1 ( %d ) " , LineNr ) ; 

uwgknotenC hknoten4 (OR, NodeText ) ; 

insert {hknoten2,hknoten4, 0) ; 

posIFDFOR « sizeO - 1; 

build Al_Part(Sl, posIFDFOR, SLIF, SLC«IIG) ; 
) 

break; 
case ELSE: 
{ 

sprintf (NodeText, "Verzweigung_DF_Alt . 2 (%d) LineNr ) ; 

uwgknotenC hknoten2 (AND, NodeText ) ; 

insert (hJcnotenl,hknoten2, 0) ; 

sprint f ( Bemerkung , "Alt . 2 ( %d ) " , LineNr ) ; 

sprintf (NodeText, "Al t. 2 (%d) ", LineNr ) ; 

uwgknotenC hknotenS (CAUSE, NodeText, Bemerkung) ; 

insert {hknoten2,hknoten3, 0) ; 

sprintf (NodeText, "Alt . 2 ( %d ) " , LineNr ) ; 

uwgknotenC hknoten4 (OR, NodeText ) ; 

insert {hknoten2,hknoten4, 0) ; 

posIFDFORA2 - sizeO - 1; 

build_Al_Part (SI, posIFDrORA2, SLIF, SLORIG); 

) 

break; 
default: 

cout « "Autsch!!!" « endl; 

} 

return posIFDFOR; 



void uwgg raphe : :build_Al_Part (SliceC & SI, int posIFDFOR, SliceC: : iterator SLIF, Sli- 
ceC: :iterator SLNODE)*{ 

int posO « 0; 

int posl « 0; 

int ret » 0; 

int dummy 0; 

int checkNr « 1; 
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int checkPUse = 1; 
int helpNrI = 0; 
int helpNr2 " 0; 
int KnotenNrO -= 0; 
int KnotenNrl = 0; 
int KnotenNr2 « 0; 
. int LineNrO « O; 
int LineNrl « 0; 
char NodeTextOf 126) ; 
char BemerkungO[1000] ; 

KnotenNrO = SLNODE->first-getKnotenNuiimier ( ) ; 

LineNrO - SLKODE->f irst .getLineNr { ) ; 

sprintf (NodeTextO, ■Op%d" , KnotenNrO ) ; 

// sprint f(BemerkungO, "Line %d", LineNrO) ; 

strcpy(Bemerkung0,Sl2100E->first.getCodeLine ( ) }; 

uwgknotenC hknot en 0 (CAUSE, KnotenNrO, NodeTextO, Berne rkungO) ; 

posO insert (hknotenO) ; 

verbindeEcken (posIFDFOR^posO, 0) ; 

SliceC: :Nachfolger: : iterator BEGINO « SLNOIH;->second. begin () ; 
SliceC: :Nachfolger: : iterator ENDO » SLNODE->second. end ( ) ; 
while (BEGINO !« ENDO) { 

if ( BEGIN 0->second = DFK) { 

helpNrl = BEGINO->first; 

KnotenNrl «= SI [helpNrl ) . f irst .getKnotenNummer ( ) ; 
SLNODE = definelterator (SI, KnotenNrl ) ; 
if (KnotenNrl < KnotenNrO) { 

SliceC: tNachfolger: : iterator BEGINl = SLNODE->second.begin( ) ; 
SliceC: :Nachfolger: : iterator ENDl = SLNODE->second. end ( ) ; 
while (BEGINl !- ENDl} { 

if ( BEGINl ->second — KFK) { 

helpNr2 « BEGIN l-> first; 
KnotenNr2 - 

SI lhelpNr21 . first .getKnotenNummer t ) ; 

SliceC: : iterator HELPPUSE « defineltera- 



tor (Sl,KnotenNr2) ; 



{ 



sesl ( SI , SLI F, HELPPUSE ) ; 



checkNr «= checkUWGNode fKnotenNr2) ; 

if (SLir->first.getKnotenNuittmer ( ) > KnotenNr2) 



checkPUse 



checkPU- 



s es 2 ( SI , SLIP, HELPPUSE ) ; 



else { 



} 



checkPUse checkPU- 



if (KnotenNr2 !«= SLIF->f irst. getKnotenNummer () ) 



se( SI, HELPPUSE); 
>first.getKFGNodeType( ) ) { 

sIFDFOR, HELPPUSE, SLNODE); 
HELPPUSE, SLNODE, posIFDFOR) ; 
Al! " « endl; 



if (CheckPUse ==0) { 
dximmy = 1; 

HELPPUSE = findOutmostPU- 

switch (HELPPUSE- 

case LC: 

buildlnLoopTree (SI, po- 

break; 
case IFC: 

ret " buildInIfTree(Sl, 



default: 



break; 

cout « "Falscher Weg in 



PUs e { SI , HELPPUSE ) ; 

>f i rst . getKFOJodeType ( ) ) { 



) 

else { 



if (checkNr = 0) { 
dummy =1; 

HELPPUSE = findOutmost- 
switch (HELPPUSE- 
case LC: 



buildlnLoopTree (SI, posIFDFOR, HELPPUSE, SLNODE); 



break; 
case IFC: 
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Tree (SI, HELPPUSE, SLNODE, posIFDFOR); 



Weg! 



« endl; 



ret 



buildlnlf- 



break; 
default: 

cout « "Falscher 



) 



} 



} 

BEGIN1++; 



if (dummy O) { 

LineNrl = SI (helpNrl ]. first. getLineNr( ) ; 
sprlnt.f (NodeTextO, ••Op%d" , KnotenNrl ) ; 
//sprint f (BemerJcungO, "Line %d* , LineNri ) ; 
strcpy (BemerkungO,Sl [helpNrll . first .getCodeLine ()) ; 
uwgknotenC hkno- 
tenl ( CAUSE, Knot enNrl r NodeTextO, BemerkungO ) ; 

posl " insert (hknotenl); 
verbindeEcken(posIFDrOR,posl, 0) ; 
build_Al_Part(Sl, posIFDFOR, SLIP, SLNODE); 



) 



} 



BEGINO++; 
diamny * 0; 



void uwggraphC: :build_IFKF_Part (SliceC & SI, int posKFOR, SliceC: : iterator SLPUSE) { 



int 


posl »= 0; 




int 


ret - 0; 




int 


dummy «= Oj 




int 


checkNr « 


1; 


int 


check PUse 


- 1; 


int 


helpNrl = 


0; 


int 


helpNr2 « 


0; 


int 


KnotenNrO 


- 0; 


int 


KnotenNrI 


« 0; 


int 


KnotenNr2 


= 0; 


int 


LineNrO « 


0; 


int 


LineNri = 


0; 



char NodeTexttl28); 
char BemerkungtlOOO] ; 

KnotenNrO = SLPUSE->f irst .getKnotenNummer ( ) ; 
LineNrO « SLPUSE->first .getLineNr () ; 
sprintf (NodeText, "Op%d", KnotenNrO ) ; 
//sprintf (Berne rkung, "Line td", LineNrO) ; 
strcpy(Bemerkung,SLPUSE->first,getCodeLine{ ) ); 
uwgknotenC hknotenl (CAUSE, KnotenNrO, NodeText, Bemerkung) ; 
posl =* insert (hknotenl ) ; 
verbindeEcken ( posKFOR, posl , 0 ) ; 

SliceC: :Nachfolger: riterator BEGINO = SLPUSE->second- begin () ; 
SliceC: :Nachfolger: : iterator ENDO •= SLPUSE->second. end ( ) ; 
while (BEGINO !- ENDO) { 

if ( BEGIN 0->second DFK) { 

helpNrl = BEGINO->f irst; 

KnotenNrI « SI {helpNrl ). first .getKnotenNummer () ; 
SliceC: I iterator SLNODE « definelterator (SI, KnotenNrI ) ; 
if (KnotenNrI < KnotenNrO) { 

SliceC: zNachfolger: riterator BEGINl = SLNODE->s econd. begin () ; 
SliceC: :Nachfolger: : iterator ENDl = SLNODE->second. end ( ) ; 
while (BEGINl != ENDl) { 

if ( BEGINl ->second KFK) { 

helpNr2 = BEGINl->f irst; 
KnotenNr2 = 

SI lhelpNr2) . first .getKnotenNummer ( ) ; 

SliceC: : iterator HELPPUSE = defineltera- 
tor ( SI , KnotenNr2 ) ; 

checJcNr = checkUWGNode(KnotenNr2) ; 

if (SLPUSE->first.getKnotenNummer { ) > Kno- 

tenNr2 ) { 

checkPUse « checkPU- 

sesl (SI , SLPUSE, HELPPUSE ) ; 

) 



wo 00/75780 



PCT/DEOO/01001 



10 



20 



25 



30 



35 



40 



45 



ses2 (S1,SLPUSE,HELPPUSE) ; 
>first.getKnotenNuiiimer ( ) ) { 

se(Sl,HELPFXJ5£) ; 

> f i rst . getKFGNodeType ( ) ) { 



15 posKFOR, HELPPUSE, SLNODE); 



HELPPUSE, SLKODE, posKFOR) ; 



Al! 



« endl; 



71 

else { 
) 



check PUse = checkPU- 



if (KnotenNr2 SLPUSE- 

if (checkPUse 0) { 
dummy ■= 1; 

HELPPUSE « findOutmostPU- 

switch (HELPPUSE- 

case L>C: 

bulldlrxLoopTree (SI, 

break; 
case IFC: 

ret = buildInIfTree(Sl, 



break; 



default.: 



else { 



PUse ( SI , HELPPUSE ) ; 
>first.getKFGNodeType( ) ) { 

buildInLoopTree(Sl, posKFOR, HELPPUSE, SLNODE); 
Tree (SI, HELPPUSE, SLNODE, posKFOR); 
Weg! " « endl; 



cout « "Falscher Weg in 



if (checkNr 0) { 
diiinmy 1; 

HELPPUSE - f indOutmost- 
switch (HELPPUSE- 
case LC: 



break; 
case IFC: 

ret = buildlnlf- 



break; 



default: 



cout « "Fa Is Cher 



50 



55 



60 



65 



) 

BEGIN1++; 



} 



if (dummy O) { 

LineNrl •= SI [helpNrl J . f irst.getLineNr ( ) ; 
sprint f (NodeText, "Op%d",KnotenNrl ) ; 
//sprintf (Bemerkung, "Line %d" , LineNrl ) ; 
strcpy(Beinerkung,Sl ( helpNrl] . first . getCodeLine () ) ; 
uwgknotenC hkno- 
tenl { CAUSE, KnotenNrl, NodeText, Bemerkung) ; 

posl » insert (hknotenl ) ; 
verbindeEcken (posKFOR, posl » 0) ; 
build_IFKF Part (SI, posKFOR, SLNODE); 

) 

) 

} 

BEGINO++; 
dummy = 0; 



70 void uwggraphC: rbuildlnLoopTree (SliceC & SI, int Posl, SliceC: : iterator SLPUSE, Sli- 
ceC: :iterator SLNODE) { 

int posil ■« 0; 

int pos3 = 0; 

int posLOOP_KF ~ 0; 
75 int posOR_Dl * 0; 

int posOR_D2 =0; 

int posAND_KF = 0; 

int SliceNr « 0; 
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int NodeNrD2 « 0; 
int KnotenNr » 0; 
int LineNr « 0; 

Knoiei^r « SLPUSE->f irst. get Knot enNummer () ; 
5 LineNr «= SLPUSE->first.getLineNr ( ) ; 

char NodeText(12e) ; 
char BemerkungllOOO) ; 

sprint f (Berne rkting, "Schleif e (%d) KnotenNr) ; 
strcpy(NodeText»SLPUS£->f lrst.getCodeLine( ) ) ; 
10 uwgknotenC hknotenl (OR,NodeText,Bemer»cung) ; 

posll « insert (htarvotenl) ; 
verbindeEcken(Po5l,posiXr 0) ; 

sprint f (NodeText,"Schleife_DF_iXirchl.l (%d) ",LineMr) ; 
uwgknotenC hknoten2 (AND, NodeText ) ; 
15 sprint f (NodeText, •Schleife_DF_Durchi. + (%d) LineNr) ; 

uwgknotenC hknoten3 ( AND, NodeText ) ; 
pos3 = insert {hknoten3) ; 
verbinde£cken(posil,pos3r 0) ; 
sprint f (NodeText, "Schleif e_KF ( %d ) LineNr ) ; 

2 0 uwgknotenC hknoten4 ( OR, NodeText ) ; 

insert (hknotenl,hknoten2, 0) ; 
ins e rt ( hknotenl , hknoten4 , 0 ) ; 
posLOOP^KF - sizet) - 1; 

sprintfTBemerkung, "Durchl . 1 (%dl " , LineNr) ; 
25 sprint f( NodeText, •Durchl.l (%d)"r LineNr) ; 

uwgknotenC hknotenS ( CAUSE, NodeText , Bemer kung ) ; 

sprint f ( NodeText , "Durchl , 1 ( %d ) " , LineNr ) ; 

uwgknotenC hknoten6 (OR, NodeText ) ; 

insert (hknoten2,hknoten5, 0) ; 
30 insert (hknoten2,hknoten6, 0) ; 

posOR_Dl - sizeO - 1; 

sprintf (Bemerkung, "Durchl . ♦ ( %d ) * , LineNr ) ; 
sprintf ( NodeText, "Durchl . + ( %d ) " , LineNr ) ; 
uwgknotenC hknoten7 ( CAUSE, NodeText, Bemerkung ) ; 

3 5 sprint f ( NodeText, "Durchl . + ( %d ) " , LineN r ) ; 

uwgknotenC hknoten8 { OR, NodeText ) ; 

insert (hknoten3,hknoten7, 0 ) ; 

posOR_D2 = insert (hknotenS) ; 

verbindeEcken (pos3, posOR_D2, 0) ; 
40 sprintf (NodeText, "KF(%d)", LineNr) ; 

uwgknotenC hknoten9 (AND, NodeText ) ; 

insert (hknoten4,hknoten9, 0) ; 

insert (hknoten3,hknoten5, 0) ; 

posAND_KF = sizeO - 1; 
45 insert (hknoten9,hknoten5, 0) ; 

NodeNrD2 - buildIn_LoopKF_ANDPart (SI, posAND_KF, SLPUSE); 

buildIn_LoopKF_ORPart(Sl, posLOOP_KF, SLPUSE, NodeNrD2 ) ; 

//buildIn_D2_Part (SI, posOR D2, SLPUSE, SLNODE, NodeNrD2 ) j 

buildIn_Dl_Part(Sl, posOR_Dl, SLPUSE, SLNODE, NodeNrD2); 
50 buildIn_D2_Part(Sl, posOR_D2, SLPUSE, SLNODE, NodeNrD2); 



55 void uwggraphC: :buildIn_Dl_Part (SliceC & SI, int posOR_Dl, SliceC: : iterator SLPUSE, Sii- 
ceCr riterator SLNODE, int D2_RefNr) { 

int posl = 0; 

int ret « 0; 

int KnotenNrl « 0; 
60 int LineNrl = 0; 

SliceC: riterator ITERl - f ind_Dl_Node (SI, SLPUSE, SLNODE); 

SliceC: : iterator HELP * ITERl; 

switch (ITERl->first.getKFOiodeType( ) ) { 

case IPC: 

65 HELP = find_Dl_Node(Sl, ITERl, SLNODE); 

ret = bui Idlnlf Tree (SI, ITERl, HELP, posOR_Dl ) ; 
break; 
case LC : 

HELP = find__Dl_Node(Sl, ITERl, SLNODE); 
70 buildlnLoopTree (SI, posOR_Dl, ITERl, SLNODE ) ; 

break; 
default: 

addAl 1 DlNodes ( SI , ITERl , posOR_Dl , D2_Re f N r ) ; 
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SliceCt : iterator uwggraphC: : f ind_Dl_Node (SliceC £ SI, Sliced : iterator SLPUSE, Sli- 
ceC: : iterator SLNODE) { * 

int helpNrl - 0; 

int helpNr2 « 0; 

int dumroyl - 0; 

int duininy2 « 0; 

int KnotenNrRet • 0; 

int KnotenNrRetl 0; 

int PUseNr « SLPUSE->f irst.getKnotenN\iinmer( ) ; 
int PUseLevel « SLPUSE-> first. get Level () ; 
SliceC: : iterator RETURNITER = SLNODE; 
KnotenNrRetl = Sl^ODE->f irst- get Knot enNummer () ; 
if (KnotenNrRetl «* (PUseNr +1)) ( 

RETURNITER « definelterator (SI, KnotenNrRetl ) ; 

dummyl « 1 ; 

dummy2 ■> 1 ; 

) 

SliceC: rNachfolger: : iterator BEGINI » SLNODE->second.begin{ ) ; 
SliceC: :Nachfolger: : iterator ENDl » SLNODE->second.end() ; 
while ({BEGINI !« ENDl) &£ (dummyl != 1) ) { 
helpNrl ^ BEGINI ->first; 

if ( (SI [helpNrl] .first. getKnotenNummerO > PUseNr) &6 
(SlthelpNrl] .first.getLevelO >- PUseLevel)) { 

if (SI [helpNrl I. first.getLevelO > PUseLevel) { 

KnotenNrRetl * SI [ helpNrl ] . f i rst . getKnotenNuramer ( ) ; 
if (KnotenNrRetl «» (PUseNr + 1)) { 

RETURNITER » definelterator (SI, KnotenNrRetl ) ; 
dummyl «* 1; 
dummy2 1; 

} 

SliceC: :Nachfolger: : iterator BEGIN2 « 

SI [ helpNrl ) . second . begin ( ) ; 

SliceC: :Nachfolger: : iterator END2 = SI (helpNrl J . second. end( J ; 
while ((BEGIN2 !» END2) && (dummy2 !» 1} } { 
if (BEGIN2->second = KFK) { 

helpNr2 = BEGIN2->f irst ; 

KnotenNrRet « 

SI [helpNr21 . f irst.getKnotenNvunmer ( ) ; 

if (KnotenNrRet !- PUseNr) { 

RETURNITER = defineltera- 

tor ( SI , KnotenNrRet ) ; 

dummyl = 1; 
dummy2 » i; 

} 

} 

BEGIN2++; 

} 

} 

else { 

KnotenNrRet SI (helpNrl) . first .getKnotenNummer () ; 
RETURNITER •= definelterator (SI , KnotenNrRet ) ; 
dummyl - 1; 

) 

) 

BEGIN1++; 

) 

if ((RETURNITER = SLNODE) && (dummyl 0) ) { 
BEGINI = SLNOD£'>second.begin( ) ; 
while (BEGINI <-= ENDl) { 

helpNrl = BEGINI ->f irst; 

KnotenNrRet = SI (helpNrl) .first. getKnotenNuramer () ; 
SliceC: : iterator SLNODE « definelterator (SI, KnotenNrRet ) ; 
RETURNITER = find_Dl Node (SI, SLPUSE, SLNODE ); 
BEGINI ++; 

) 

} 

return RETURNITER; 



void uwggraphC: :buildIn_D2_Part( SliceC & SI, int posOR_D2, SliceC: : iterator SLPUSE, Sli- 
ceC: : iterator SLNODE, int KnotenNrD2) { 

int posl « 0; 

int pos2 = 0; 

int ret » 0; 

int helpNrl = 0; 

int helpNr2 «= 0; 
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int KnotenNrl » 0; 
int LineNrl * 0; 
int KnotenNrD2Ret - 0; 
int USEinD2KnotenNr r 0; 
5 char Bemerkungl tlOOO] ; 

char NodeTextlfl28]; 

SliceC: : iterator D2_NODE • definelterator (SI, KnotenNrD2); 
KnotenNrl « D2_N0DE->f irst.getKnotenNummer ( ) ; 
LineNrl « D2_N0DE->f irst.getLineNr () ; 

1 0 sprint f (NodeTextl , •'Op%d* , KnotenNrl ) ; 

//sprintf (Bemerkungl , "Line %d", LineNrl ) ; 
strcpy(Beroer}cungl,D2_N0DE->f irst.getCodeLine ( ) ) ; 
uwgkno t enC hknot enl ( CAUSE , KnotenNrl , NodeTextl , Berne r kungl ) ; 
posl - insert (hknot enl) ; 
15 verbinde£cken(posOR_D2/posl,0); 

SliceC: :Nachfolger: : iterator BEGINl « D2_NODE->s econd. begin () ; 
SliceC: :Nachfolger: : iterator ENDl « D2 NODE ->second. end () ; 
while (BEGINl != ENDl) { 

if ( BEGINl ->second »^ DFK) { 
20 helpNrl - BEGINl->first; 

KnotenNrl ^ SI [helpNrl] . first. getKnotenNumroer () ; 
LineNrl » SI (helpNrl ]. first . getLineNr () ; 
sprint f (NodeTextl, "Op%d'», KnotenNrl ) ; 
//sprintf (Bemerkungl, "Line %d", LineNrl) ; 

2 5 strcpy ( Bemerkungl , SI ( helpNrl 1 . f i rst . getCodeLine { ) ) ; 

uwg)cnotenC hknot en2 (CAUSE r KnotenNrl , NodeTextl , Bemerkungl ) ; 
pos2 = Insert (hknot en2) ; 
verbindeEcken {posOR_D2,pos2, 0) ; 

SliceC: :Nachfolger: : iterator BEGIN2 » SI [helpNrl ]. second. begin () ; 
30 SliceC: :Nachfolger: : iterator END2 = SI [helpNrl ) .second. end (} ; 

while (BEGIN2 != END2) { 

helpNr2 = BEGIN2->f irst; 
if ( (BEGIN2->second DFK) && 
(SI (helpNr2) .first.getKnotenNummer ( ) ! = KnotenNrD2 ) ) { 
35 //SliceC: :iterator SLNODEl = defineltera- 

tor ( SI , KnotenNrl ) ; 

//buildIn_D2_Part ( SI , posOR, SLPUSE, SUiODEl , KnotenNrD2 ) 

} 

BEG1N2++; 

40 ) 

} 

BEGINl ++; 

} 

SliceC: : iterator USEinD2 « f ind_Dl_Node (SI, SLPUSE, SLNODE); 
45 SliceC: : iterator HELP ^ USEinD27 " 

if (USEinD2->first.getLevel( ) > SLPUSE->f irst.getLevel ( ) ) { 
USEinD2KnotenNr « USEinD2->f irst. getKnotenNummer ( ) ; 
KnotenNrD2Ret * f indD2Node (SI, USEinD2); 
if (KnotenNrD2Ret = USEinD2KnotenNr ) { 
50 switch(USEinD2->first.getKFGNodeType( ) ) { 

case IFC: 

HELP = find_Dl_Node ( SI, USEinD2, SLNODE) ; 
//ret « buildInIfTree(Sl,USEinD2,HELP,posOR) ; 
ret - bui ldD2InIf Tree (SI, USEinD2, HELP, posOR_D2) ; 
55 break; 

case LC: 

HELP - find_Dl_Node(Sl,USEinD2,SLNOE«:) ; 

bui Idlnl^opTree ( SI , posOR_D2 , USEinD2 , SLNODE ) ; 

break; 

60 default: 

cout « "Uups!!!" « endl; 

1 

) 

65 ) * 

int uwggraphC: :findD2Node (SliceC & SI, SliceC: : iterator FUSE) { 
int dummy « 0; 
70 int helpNrl « 0; 

int helpNr2 « 0; 

int KnotenNrReturn * PUSE->f irst. getKnotenNuromer ( ) ; 
int PUSEKnotenNr = PUSE->f irst . getKnotenNummer ( ) ; 
SliceC: :Nachfolger: : iterator BEGINl PUSE->second,begin( ); 
75 SliceC: :Nachfolger: : iterator ENDl = PUSE->second . end ( ) ; 

while ((BEGINl !- ENDl) && (dummy != 1)) { 
if (BEGINl ->second = DFK) { 

helpNrl « BEGINl->f irst; 
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SllceC: :Nachfolger: : Iterator BE6IN2 » SI (helpNrl] .second. begin( ) ; 
SliceC: :NachfoIger: : Iterator END2 «^ SI { helpNrl ] .second. end () ; 
while { (BEGIN2 f« END2} &£ (dummy •» 
if (BEGIN2->second == KFK) { 

helpNr2 = BEGIN2->f irst; 

if (SI lhelpNr2) .first.getKnotenNummer ( ) PUSEKno* 

tenNr) { 

KnotenNrReturn ■* 

SI [ helpNr2 1 . f i rst . getKnot enNummer ( ) ; 

} 

} 

BEGIN2++; 

} 

) 

BEGIN1++; 

) 

return KnotenNrReturn; 



dummy - 1; 



int uwgg raphe : :buildIn_LoopKF_ANDPart (SI iceC & Si, int posAND_KF, SliceC: : iterar.or SLPUSE) 
{ 

int pos • 0; 
int helpNrl = 0; 
int helpNr2 - 0; 
int RefPUse = O; 
int KnotenNr «= 0; 
int LineNr « 0; 
int dummy « 0; 
int dummyl « 0; 
char Bemerkung[1000) ; 
char NodeText tl28J ; 

RefPUse SLPUS£->f irst. getKnot enNummer () ; 

Sliced :Nachfolger: : iterator BEGIN » SLPUSE->second .begin (} ; 
SllceC: :Nachfolger: : iterator END = SLPUSE->second.end ( ) ; 
while ((BEGIN !« END) && (dummyl 1)) { 
if (BEGIN->second DFK) { 

helpNrl * BEGIN->first; 

SliceC: :Nachfolger: : iterator BEGIN2 = SI [helpNrl ] .second. begin () ; 
SliceC: :Nachfolger: : iterator END2 = SI (helpNrl )- second. end () ; 
while ((BEGIN2 END2} && (dummy 1) ) { 
if (BEGIN2->second KFK) { 

helpNr2 ^ BEGIN2->f irst; 

if (SI IhelpNr2] . f irst.getKnotenNummer( ) = RefPUse) { 
KnotenNr = SI ( helpNrl] . fi rsti .getKnotenNummer ( ) 
LineNr = SI I helpNrl ]. first .getLineNr () ; 
sprintf (NodeText r ••Op%d", KnotenNr ) ; 
//sprintf (Bemerkung, "Line %d*', LineNr) ; 

strcpy(Bemerkung, SI [helpNrl] . first . getCodeLine ( ) ); 

uwgknotenC hkno- 

ten ( CAUSE # Kno t e nN r« Nod eT ex t# Berne rkung) ; 

pos ** insert (hknoten) ; 
verbindeEcken(posAND__KF,pos, 0) ; 
dummy «= 1; 
dummyl « 1; 

) 

} 

BEGIN2++; 

} 

) 

BEGIN++; 

) 

return KnotenNr; 

) 



void uwggraphC: :buildIn_LoopKF_ORPart t SliceC & SI, int posLOOP KF, SliceC: : iterator SLl, 
int KnotenNrD2) { 

int posl = 0; 

int pos2 = 0; 

int helpNrl « 0; 

int help^r2 « 0; 

int KnotenNr = 0; 

int KnotenNrl 0; 

int LineNr « 0; 
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int LineNrl « 0; 
char NodeTexttl28J; 
char Bemerkung[1000} ; 

KnotenNr • SLl->f irst-getKnotenNunaner () ; 

LineNr = SLl->first.getLineNr ( ) ; 

sprint. f (NodeText,"Op%d",Knot€nNr) ; 

//sprintf (Beiiierlcung,"Line %d",LineNr) ; 

strcpy(Bemerkung,SLl->first.getCodeLlne ( ) ) ; 

uwgknotenC hknotenl (CAUSE ^ KnotenNr, NodeText, Benterkung) ; 

posl insert (hknotenl ) ; 

verbindeEcken(posLCX)P_KFrPosl,0) ; 

SliceC: :Nachfolger: : iterator BEGIN = SLl->second.begin( ) ; 
SI iceC : iNachfolger: : iterator END « 5Ll->second.end ( ) ; 
while (BEGIN != END) { 

if (BEGIN->second — DFK) ( 

helpNrl « BEGIN->f irst; 

KnotenNrl «^ SI (helpNrl ]. first. getKnotenNummer () ; 
if (KnotenNrl !- KnotenNrD2) { 

LineNrl «= SI (helpNrl) . first .getLineNr () ; 

sprint f (NodeText, "Optd" , KnotenNrl ) ; 

//sprintf (Bemerkung, "Line %d", LineNrl) ; 

strcpy (Berne rkung,5Ll-> first .getCodeLine ( ) ) ; ' 

uwgknotenC hknotenl (CAUSE, KnotenNrl, NodeT ex t, Berne rkiing) ? 

posl ^ insert (hknotenl) ; 

verbindeEcken (posLOOP_KF,posl, 0) ; 

} 

SliceC: : iterator NEXTNODE » definelterator (SI, KnotenNrl J ; 
SliceC: :Nachfolger: : iterator BEGIN2 = NE:XTNODE->s econd. begin () ; 
SliceC: :Nachfolger: : iterator END2 » NE3CTNODE->second.end( ) ; 
while (BEGIN2 !>= END2) ( 

if (BEGIN2->second -= DFK) { 

helpNr2 ■= BEGIN2->f irst; 

if (NEXTNODE->first.getlCnotenNuOTner{ ) !■» KnotenNrD2) { 
buildIn_LoopKF_C«Part(Sl, posLOOP_KF, NEXTNODE, 

KnotenNrD2 ) ; 

) 

) 

BEGIN2'f-f; 

> 

> 

BEGIN++; 

} 

) 



void uwggraphC: laddAllDlNodes (SliceC & SI, SliceC: : iterator SLNODE, int posGatter, int 
D2_RefNr) { 

int posl = 0; 

int ret. • 0; 

int checJcNr = 1; 

int helpNrl « 0; 

int helpNr2 - 0; 

int SliceNr2 - 0; 

int KnotenNrO = 0; 

int KnotenNrl • 0; 

int KnotenNr2 = 0; 

int LineNrl « 0; 

int LineNrO = 0; 

cha r Berne r kungl ( 1 000 ] ; 

char NodeTextl(1281 ; 

KnotenNrO — SLNODE->f irst .getKnotenNummer () ; 
LineNrO « SLNODE->f irst . getLineNr () ; 
sprint f ( NodeTextl , "Op%d" , KnotenNrO ) ; 
//sprintf(Bemer kungl, "Line %d", LineNrO ) ; 
strcpy (Berne rkungl,SLNODE-> first .getCodeLine ( ) ) ; 
uwgknotenC hknotenl (CAUSE, KnotenNrO, NodeTextl , Berne rkungl ) ; 
posl « insert (hknotenl ) ; 
verbindeEcken (posGatter, posl, 0) ; 

SliceC: rNachfolger :: iterator BEGINl -= SLNODE->second .begin ( ) ; 
SliceC: iNachfolger: : iterator ENDl « SLNODE- >second. end () ; 
while (BEGINl !«= ENDl) { 

if (BEGINl->second DFK) { 

helpNrl = BEGINl -> f irst; 

KnotenNrl = SI (helpNrl ) . f irst . getKnotenNummer ( ) ; 
SLNODE = definelterator (SI, KnotenNrl ) ; 

if ((KnotenNrl D2_RefNr) && (KnotenNrl KnotenNrO)) { 
SliceC: iNachfolger: : Iterator BEGIN2 = 

SI 1 helpNrl 1 .second. begin ( ) ; 
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SI ( helpNr 1 ) . second > end ( ) ; 



SliceNr2) ; 



se(Sl,HELPPUSE)j 



Sliced :Nachfolger: : iterator END2 
while (BEGIN2 !» CNDZ) ( 

if (BEGIN2->second ~ KFK) { 

helpNrZ - BEGIN2->first; 

SliceNr2 = SI |helpNr2] . first .getKnotenNummer ( ) 
SliceC: : iterator HELPPUSE def inelterator (SI, 

checkNr « checkUW(»Iode (SliceNr2 ) ; 

if (CheckNr — 0) { 

SliceC: : iterator HELPl = f indOutmostPU- 
switch <HELPl->first.getKFGNodeType( ) ) 



HELPPUSE, SLNODE); 



T r ee ( SI , HELPPUSE , SLNODE , posGa tt e r ) j 



endl; 



case LC: 

buildlnLoopTree (SI, posGatter, 

break; 
case IFC: 

ret « buildlnlf- 

break; 
default: 

cout « "Fa Is Cher Weg! " « 

> 



) 



} 

BEGIN2++; 



if (CheckNr == 1) { 

LineNrl = SI [helpNrl 1 . first .getLineNr () ; 
sprintf (NodeTextl , ••Op%d" , KnotenNrl ) ; 
//sprintf (Bemerkungl, "Line %d**, LineNrl ) ; 
strcpy(Bemerkungl,Sl ( helpNrl 1 . f irst .getCodeLine ( ) ) ; 
uwgknotenC hkno* 
ten2 (CAUSE, KnotenNrl, NodeTextl, Berne rkungl ) ; 

posl - insert (hknoten2) ; 
verbindeEcken (posGatter,posl, 0) ; 
addAllDlNodes ( SI , SLNODE, posGatter , D2 RefNr ) ; 



) 



) 



BEGIN1++; 



int uwggraphC: :buildD2InIf Tree (SliceC & SI, SliceC: : iterator SLIF, SliceC: : iterator SLORIG, 
int posl ) ( 

int p>os2 = 0; 

int posl FOR « 0; 

int posIFDFOR = 0; 

int posIFKFOR = 0; 

int posIFDFORA2 = 0; 

char NodeTextri28) ; 

char Bemerkung [ 1000] ; 

int KnotenNr = SLIF->f irst . getKnotenNtjnimer ( ) ; 
int LineNr = SLIF->f irst .getLineNr () ; 
sprintf (NodeText, "Verzweigung_D+ (%d)", KnotenNr ) ; 
strcpy(Beinerkung,SLIF->f irst. getCodeLine () ) ; 
uwgknotenC hknotenl ( OR, NodeText , Bemerkung ) ; 
pos2 » insert (hknotenl ) ; 
posl FOR «» size(} - 1; 
verbindeEcken (posl, pos2,0); 

sprintf (NodeText, "Verzweigung_KF_D+ ( %d) *, LineNr) ; 
uwgknotenC hknotenS ( OR, NodeText ) ; 
posIFKFOR « insert (hknotenS) ; 
verbindeEcken (pos2, posIFKFOR, O) ; 
buildD2_IFKF_Part (SI, posIFKFOR, SLIF) ; 
switch (SLORIG->first.getKnotenIdent ( ) ) { 
case THEN: 
{ 

sprintf (NodeText, "Verzweigung_DF_Alt . 1_D+ ( %d )", LineNr ) ; 

uwgknotenC hknoten2 (AND, NodeText ) ; 

insert (hknotenl , hknoten2, 0 ) ; 

sprintf (Bemerkung, "Alt . 1_D+ ( %d J LineNr ) ; 

sprintf (NodeText, "Alt. 1_D+ (%d) ", LineNr) ; 

uwgknotenC hknotenS (CAUSE, NodeText, Bemerkung ) ; 
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insert { hknoten2r hJcnoten3# 0 1 ; 

sprint f (NodeText, "Alt . 1_D+ < %d ) " , LineNr ) ; 

uwgknotenC hKnoten4 ( OR, NodeText ) ; 

i nse rt ( hknot.en2 , h)uioten4 , 0 ) ; 

posIFDFOR - sizeO - 1; 

buildD2_Al_Part (SI, posIFDFOR, SLIF, SLORIG); 

} 

break; 
case ELSE: 

{ 

sprint f (NodeText, "Verzweigung_DF_Alt .2_EM- (%d) LineNr ) ; 

uwgknotenC hknoten2 (AND, NodeText ) ; 

insert (hknotenl,hknoten2,0} ; 

sprint f (Bemerkung, "Alt . 2_D+ ( %d) " , LineNr ) ; 

sprintf (NodeText, "Alt . 2_D+ ( %d J " , LineNr ) ; 

uwgknotenC hkno ten 3 (CAUSE, NodeText, Bemerkung) ; 

insert (hknoten2,hknoten3,0} ; 

sprintf (NodeText , "Alt . 2_D+ ( %d ) " , LineNr ) ; 

uwgknotenC hknoten4 ( OR, NodeText ) ; 

insert ( hknoten2 , hknoten4 , 0 ] ; 

posIFDrORA2 » SizeO - 1; 

build02_Al Part (Si, posIFDF0RA2, SLIF, SLORIG); 
} 

break; 
default: 

cout « "Autsch!!!" « endl; 

} 

return posIFDFCMt.; 



void uwggraphC: :buildD2_Al_Part (SliceC & SI, int posIFDF0R_D2, SliceC: : iterator SLIF, Sli- 
ceC: : iterator SLNODE) {" " 

int posO__Al 0; 

int posl_Al 0; 

int helpNrO = 0; 

int helpNrl 0; 

int KnotenNrO » 0; 

int KnotenNrl - 0; 

int KnotenNr2 * 0; 

int LineNrO - 0; 

int LineNrl * 0; 

char NodeTextOI12e] ; 

char BemerkungOClOOO] ; 

KnotenNrO = SLNODE->first .getKnotenNummer { ) ; 
LineNrO - SLNODE->first. get LineNr () ; 
sprintf (NodeTextO, "Op%d" , KnotenNrO ) ; 
//sprintf (BemerkungO, "Line %d", LineNrO) ; 
strcpy(BemerkungO,SLNODE->first.getCodeLine( ) ) ; 
uwgknotenC hknotenO (CAUSE, KnotenNrO, NodeText 0, BejnerkungO ) ; 
posO_Al « insert (hknotenO) ; 
verbindeEcken(posIFDFOR_D2,posO_Al, 0) ; 

SliceC: :Nachfolger; : iterator BEGINO = SLNODE->second. begin () ; 
SliceC: :Nachfolger: : iterator ENDO « SLNODE->second. end ( ) ; 
while (BEGINO !« ENDO) { 

helpNrO = BEGINO-> first; 

KnotenNrl = SI [helpNrOJ . first. getKnotenNunaner () ; 
if (KnotenNrl > KnotenNrO) { 

LineNrl = SI (helpNrOl . first. getLineNr () ; 

sprintf (NodeTextO, "Op%d" , KnotenNrl ) ; 

//sprintf (BemerkungO, "Line %d" , LineNrl ) ; 

strcpy (Berne rkungO, SI (helpNrO) . first . getCodeLine ( ) ) ; 

uwgknotenC hknotenl (CAUSE, KnotenNrl , NodeTextO, BemerkungO) ; 

posl_Al = insert (hknotenl ) ; 

verbindeEcken(posIFDFOR_D2,posl_Al, 0) ; 

SliceC: rNachfolger: literator BEGINl «= SI IhelpNrOJ .second.begin( ) ; 
SliceC: :Nachfolger: titerator ENDl « SI [he IpNrO) .second. end () ; 
while (BEGINl !« ENDl) ( 

if (BEGINl->second = DFK) { 

helpNrl = BEGINl->f irst; 

KnotenNr2 = SI t helpNrl 1 . first .getKnotenNummer () ; 
if (KnotenNrl KnotenNr2) { 

SliceC: : iterator SLNODE = defineltera- 

tor (Sl,KnotenNr2) ; 

buildD2_Al_Part (SI, posIFDFOR_D2, SLIF, 

SLNODE); 
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BEGIN1++; 

} 

) 

BEGINO++; 



void uwggraphC: :buildD2_IFKF_Part(SliceC & SI, int posKFOR_D2, SliceC: : iterator SLPUSE) { 



int 


posO_D2 - 


0; 


int 


posl D2 * 


0; 


int 


ret - 0; 




int 


dummy - Oj 




int 


helpNrO « 


0; 


int 


helpNrl - 


0; 


int 


helpNr2 - 


0; 


int 


check PUse 


« 0; 


int 


checkKode 


- 0; 


int 


KnotenNrO 


- 0; 


int 


KnotenNrl 


- 0; 


int 


KnotenNr2 


- 0; 


int 


KnotenNr3 


- 0; 


int 


LineNrO = 


0; 


int 


LineNrl « 


0; 



char NodeTextOI128) ; 
char BemerkungOtlOOO] ; 

KnotenNrO = SLPUSE->f irst .getKnotenNuinmer ( ) ; 
LineNrO = SLPUSE->f irst -getLineNr ( ) ; 
sprint f(NodeTextO, "Op%d", KnotenNrO ) ; 
//sprintf (BemerkungOf "Line %d" , LineNrO) ; 
strcpy (BeinerkungO,SLPUSE->first.getCodeLine( ) ) ; 
uwgknotenC hknotenO tCAUSE, KnotenNrO, NodeTextO, BemerkungO) ; 
posO_D2 • insert I hknotenO) ; 
verbindeEcken (posKFOR_D2,posO_D2, 0 ) ; 

SliceC: :Nachfolger: : iterator BEGINO « SLPUSE->second. begin () ; 
SliceC: JNachfolger: : iterator ENDO « SLPUSE->second . end ( ) ; 
while {BEGINO ENDO) { 

helpNrO * BEGIN0->f irst; 

KnotenNrl » SI (helpNrO) . first. getKnotenNummer {) ; 
SliceC: : iterator SLNODE = definelterator (SI , KnotenNrl) ; 
if (KnotenNrl > KnotenNrO) { 

LineNrl « SI [helpNrOJ . first . getLineNr () ; 

sprintf (NodeTextO, "C^%d" , KnotenNrl ) ; 

//sprintf (BemerkungO, "Line %d" , LineNrl ) ; 

strcpy(BeinerkungOrSl IhelpNrO] . first- getCodeLine ( ) ) ; 

uwgknotenC hknotenl (CAUSE, KnotenNrl «NodeTextOrBemerkungO) ; 

posl_D2 = insert (hknotenl ) ; 

verbindeEcken (posKFOR_D2,posl_D2, 0 J ; 

SliceC: :Nachfolger: :iterator BEGINl = SLNODE->second. begin () ; 
SliceC: :Nachfolger: : iterator ENDl = SLNODE->second. end { ) ; 
while (BEGINl !* ENDl) { 

if ( BEGINl ->second -« DFK) { 

helpNrl » BEGINl -> first; 

KnotenNrZ = SI (helpNrl ]. first .getKnotenNummer () ; 
if (KnotenNr2 != KnotenNrl) { 

SliceC: : iterator SLNODE « defineltera- 

tor ( SI , KnotenNr2 ) ; 

SliceC: :Nachfolger: ; iterator BEGIN2 = 

Sit helpNrl 1 . second. begin () ; 

SliceC: :Nachfolger: : iterator END2 * 

SI [ helpNrl ) . second, end { ) ; 

while (BEGIN2 !° END2) { 

if (BEGIN2->second =• KFK) { 

helpNr2 « BEGIN2->f irst; 
KnotenNrS = 

SI lhelpNr2] . first .getKnotenNunoner ( ) ; 

SliceC: : iterator HELPPUSE « 

definelterator (Sl,KnotenNr3) ; 

if (SLPUSE- 

>first.getKnotenNuinmer ( ) > KnotenNr3) { 

checkPUse = checkPU- 

sesl (SI, SLPUSE, HELPPUSE ) ; 

) 

else ( 

CheckPUse « check PU- 

ses2 ( SI , SLPUSE, HELPPUSE ) ; 
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15 



20 
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wcaaode ( KhotenNr2 } ; 

dOutmostPUse ( SI , HELPPUSE ) ; 
>f i rst . getKFGNodeType ( ) ) { 

buildlnLoopTreeiSl, posKFOR_D2, HELPPUSE, SLNODE); 
buildInIfTree(Sl, HELPPUSE, SLNODE, posKFOR_D2); 
"Falscher Weg in Al! " « endl; 



checkNode » checkU- 

if (checkNode 0) { 

if (checKPUse OJ { 

//HELPPUSE « fin- 
switch (HELPPUSE- 
case LC: 



dxunmy 1 
break; 
case IPC: 

ret - 



default: 



dummy >= 1 
break; 



25 



30 



35 



40 



else { 



SI [helpNr2] . f irst.getLineNr ( ) ; 

sprint f (NodeTextO, "Op%d", KnotenNr2 ) ; 

//sprintf (BemerkungO, "Line %d" , LineNrl ) ; 

strcpy(BeinerkungO,Sl (helpNr2) . f irst.getCodeLine ( ) ) ; 
tenl (CAUSE, Knot enNr 2, NodeTextOfBemerkungO] ; 
insert (hknotenl } ; 

verbindeEcken (posKF<»l_D2,posl_D2, 0) ; 

} 

BEGIN2+ 



LineNrl 



uwgknotenC hkno- 
posl_D2 • 



45 



50 



) 

BEGINO-K+; 



) 

BEGINl-h-t-; 



55 



60 



65 



70 



75 



SliceC: :iterator uwggraphC: : f indOutmostPUse (SliceC & SI, SliceC: : iterator SLPUSE) ( 
int dummy » 0; 
int helpNrl » 0; 
int checkNr » 0; 
int KnotenNrl «= 0; 
SliceC: : iterator RETURN = SLPUSE; 

SliceC: :Nachfolger: : iterator BEGINl = SLPUSE->second * begin {) ; 
SliceC: zNachfolger: : iterator ENDl » SLPUS£->second. end { ) ; 
while ((BEGINl !- ENDl) && (dummy 1)){ 
if ( BEGINl ->second «= KFK) { 

helpNrl = BEGINl ->first; 

KnotenNrl « SI [helpNrl ]. first .get Knot enNunaner () ; 
checkNr « checkUWGNode (KnotenNrl ) ; 
if (checkNr ««= 0) { 

SLPUSE » definelterator (SI, KnotenNrl ) ; 
RETURN = findOutmostPUse(Sl, SLPUSE); 
dummy « 1; 



) 

else { 



RETURN = SLPUSE; 
dummy = 1; 



) 

BEGIN1++; 
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return RETURN; 



5 int uwggraphC: :checkUWa*lodetint SliceNr) { 
int duinmy » 0; 

uwggraphC: : iterator ITER = begln(); 
while (ITER !- end()) { 

if t (♦ITER) . first. getCauseNrO SliceNr) { 
1 0 dummy *» 1 ; 

) 

ITER++; 

> 

if (dvimmy «» 1) 
15 return 1; 

else 

return O; 

} 

20 

SliceC: : iterator uwggraphC: :def incite ra tor (SI iceC & SI, int SliceNr) { 
int dummy « 0; 

SliceC: :iterator ITER = Sl.beginO; 
SliceC: : iterator HELP = Sl.beginf); 
25 while ((ITER != Sl.endO) i& (dummy !« 1) ) { 

if ( (♦ITER) -first. getKnotenNuramerO SliceNr) { 
HELP = ITER; 
dummy = 1; 

) 

30 ITER++; 

) 

return HELP; 

} 

35 

void uwggraphC: :SliceAusgeben (SliceC & SI) { 
//int a; 

of stream 2iel ("Slice, sic"") ; 
40 ostream_iterator<KFGListNodeO POSIT(2iel, "KnotenXn"); 

ostream_iterator<KFGListNodeO POSIT2(2iel, " Nachfolger: •); 

ostream_iterator<GraphKanteC> KANTEIT (2iel , "\n"); 
2iel « "SLICE:* « endl « endl; 
for (int i « 0; i < Sl.sizeO; ++i) { 
45 2iel « Sl[i]. first « • <"; 

SliceC: : Nachfolger :: iterator IT s= SI (i J .second.begin( ) ; 
SliceC: :Nachfolger: : iterator ITEND » SI [i ] .second. end () ; 
while (IT != ITEND) { 

Ziel « SI [(♦!?) -first! .first « • • // EcJce 

50 « endl « "Kante:" « (♦IT). second « • // Kantenwert 

++IT; 

) 

Ziel « ->\n-; 

55 , ' 



60 



#include "uwgkante.h" 
□ 

65 iinclude <iostream> 
□ 



□ 

70 □ 
□ 



ostream& operator « { ostreamfi os, const uwgkanteC& Node}{ 
OS « Node. Number « endl ; 
return os; 



75 ° , 
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# include "uvrgJcnoten.h" 
□ 

ffinclude <iostreaiii> 
□ 

O 

ost.ream& operator « ( ostreami os, const uwgknotenCfi Node) { 

//OS « Node.Gatterldent « " " « Node.CauseNr « * " « Node.gattertext « endl 

//return os; 

if (Node.getNodeldentC ) «= EFFECT) { 

OS « "%%EFFECT:\*'' « Node.gatterbemerkung « ••\":\"" « Node.gattertext « 
*\-," « Node.Gatterldent « ",,/0;" « endl; 
return os; 

} 

else if (Node.getNodeldent ( ) = OR) { 

OS « "%%OR:l:\"" « Node.gattertext « "\" : \-keine\" , " « Node.Gatterldent 
« ,/0:^ « endl; 

return os; 

} 

else if (Node,getNodeIdent( ) « AND) { 

OS « "%%AND:\"" « Node.gattertext « "X* : N'-lceineX", - « Node.Gatterldent 
« ",,/0;" « endl; 

return os; 

} 

else if {Node.getNodeIdent( ) = NOT) { 

os « "%%NOT:\"" « Node.gattertext « "\" : \"keine\" , " « Node.Gatterldent 
« ",,/0;" « endl; 

return os; 

} 

/*else if (Node.getNodeldent ( ) CAUSE) { 

OS « "%%CAUSE:\-" « Node.gattertext « "\* : X-JteineN", " « Node.Gatterldent 
« ",,/0;" « endl; 

return os; 

}*/ 

else if (Node,getNodeIdent( ) -= CAUSE) { 

OS « *%%CAUSE:\"" « Node.gatterbemerkung « -\«:\«'« « Node.gattertext « 
"\*," « Node.Gatterldent « ",,/0;" « endl; 
return os; 

} 

else { 

OS « Node.Gatterldent « " " « Node.CauseNr « " " « Node.gattertext 

« endl ; 

return os; 

) 

> 

int uwgknotenC: : DuinmyNr = 1; 
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of the Art, Mannheim, Wien, ZQrich: BI Wissenschaf tsverlag 
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PatentansprOch 

1. Verfahren zur Ermittlung einer Gesamtf ehlerbeschreibung 
zumindest eines Teils eines Con^uterprogramms, durch einen 
5 Computer/ 

• bei dem zimindest der Teil des Computerprograioms gespei- 
chert ist/ 

• bei dem eine Kontrollf luBbeschreibiing und eine Datenf luBbe- 
schreibxing ftlr den Teil des Computerprograroms ermittelt 

10 werden, 

• bei dem Pro gramme lemente aus dem Teil des Computerprogramms 
ausgewahlt werden, 

• bei dem fUr jedes ausgev/ahlte Programmelement unter Verwen- 
dxang einer gespeicherten Fehlerbeschreibung^ die jeweils 

15 einem Ref erenzelement zugeordnet ist^ eine Elementenf ehler- 
beschreibung ermittelt wird, mit der mogliche Fehler des 
jeweiligen Programmelements beschrieben werden, 

• bei dem mit einer Fehlerbeschreibung eines Ref erenzelements 
mogliche Fehler des jeweiligen Ref erenzelements beschrieben 

20 werden, und 

• bei dem aus den Elementenf ehlerbeschreibungen die Ge- 
samtf ehlerbeschreibung unter Berticksichtigung der Kontroll- 
f luBbeschreibung und der Datenf luBbeschreibung ermittelt 
wird. 



25 



2- Verfahren nach Anspruch 1, 

bei dem die Kontrollf luBbeschreibung in Form eines Kontroll- 
fluBgraphen vorliegt. 



30 3. Verfahren nach Anspruch 1 oder 2, 

bei dem die Datenf luBbeschreibung in Form eines Datenf luBgra- 
phen vorliegt. 

4* Verfahren nach einem der vorangegangenen Ansprtiche, 
35 • bei dem die Fehlerbeschreibung in Form eines gespeicherten 
Fehlerbaums vorliegt. 
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• bei dem die Elementenf ehlerbeschreibung als Elementenf eh- 
lerbaiam ermittelt wird, und 

• bei dem die Gesamtf ehlerbeschreibung als Gesamtf ehlerbaum 
ermittelt wird. 

5 

5. Verfahren nach einem der vorangegangenen Ansprtiche/ 
eingesetzt zur Fehleranalyse des Teils des Computerprogramms. 

6. Verfahren nach einem der vorangegangenen Ansprtiche, 

10 • bei dem die Gesamtf ehlerbeschreibiing als Gesamtf ehlerbaum 
ermittelt wird, 

• bei dem der Gesamtf ehlerbaiim verandert wird hinsichtlich 
vorgebbarer Rahmenbedingungen. 

15 7, Verfahren nach Anspruch 6, 

bei dem die Veranderxing durch Hinzufugen eines Erg^nziingsf eh- 
lerbaums erfolgt. 



8. Anordnung zur Ermittl\ing einer Gesamtf ehlerbeschreibiing 
20 zumindest eines Teils eines Computerprogramms, durch einen 
Computer, 

mit einem Prozessor, der derart eingerichtet ist, daB folgen- 
de Schritte durchftihrbar sind: 

• ziamindest der Teil des Computerprogramms ist gespeichert, 
25 • eine Kontrollf IxoBbeschreibung und eine Datenf luBbeschrei- 

bung werden fur den Teil des Computerprogramms ermittelt, 

• Programmelemente werden aus dem Teil des Computerprogramms 
ausgewahlt, 

• fur jedes ausgewShlte Programmelement wird unter Verwendung 
30 einer gespeicherten Fehlerbeschreibung, die jeweils einem 

Ref erenzelement zugeordnet ist, eine Elementenf ehlerbe- 
schreibung ermittelt, mit der mogliche Fehler des jeweili- 
gen Programmelements beschrieben werden, 

• mit einer Fehlerbeschreibung eines Ref erenzelement s werden 
35 mogliche Fehler des jeweiligen Ref erenzelements beschrie- 
ben, und 
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• aus den Elementenf ehlerbeschreibiingen wird die Gesamtfeh- 
lerbeschreibiing unter Berticksichtigung der Kontrollf luBbe- 
schreibung txnd der Datenf luBbeschreibiing ermittelt. 

5 9. Anordniang nach Anspruch 8, 

bei der der Prozessor derart eingerichtet xst, daB die Kon- 
trollf luBbeschreibung in Form eines Kontrollf luBgraphen vor- 
liegt. 

10 10* Anordnimg nach Anspruch 8 oder 9, 

bei der der Prozessor derart eingerichtet ist, daB die Daten- 
f luBbeschreibiing in Form eines Datenf luBgraphen vorliegt. 

11. Anordnung nach einem der Ansprtiche 8 bis 10, 
15 bei der der Prozessor derart eingerichtet ist, daB 

• die Fehlerbeschreibung in Form eines gespeicherten Fehler- 
baums vorliegt/ 

• die Elementenfehlerbeschreibxing als Elementenf ehlerbaum er- 
mittelt wird, vnd 

20 • die Gesamtf ehlerbeschreibung als Gesamtf ehlerbaum ermittelt 
wird. 

12. Anordnung nach einem der Ansprtiche 8 bis 11, 
eingesetzt zur Fehleranalyse des Teils des Computerprogramms . 

25 

13. Anordnung nach einem der Ansprtiche 8 bis 12, 
bei der der Prozessor derart eingerichtet ist, daB 

• die Gesamtfehlerbeschreibung als Gesamtf ehlerbaxim ermittelt 
wird, 

30 • der Gesamtf ehlerb aim verandert wird hinsichtlich vorgebba- 
rer Rahmenbedingxingen . 

14. Anordnung nach Anspruch 13, 

bei der der Prozessor derart eingerichtet ist, daB die VerSn- 
35 derung durch Hinzufiigen eines Erganzungsf ehlerbavims erfolgt. 
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15. Computerprogramm-Erzeugnis, das ein computer lesbares 
Speichermedium umfaBt, auf dem ein Programm gespeichert ist, 
das es einem Computer ermoglicht, nachdem es in einen Spei- 
cher des Computers geladen worden ist, folgende Schritte 

5 durchzufilhren zur Ermittlung einer Gesamtf ehlerbeschreibxing 
zxmindest eines Teils eines Computerprogramms : 

• zuiaindest der Teil des Computerprogramms ist gespeichert, 

• eine Kontrollf luBbeschreibung und eine Datenf luflbeschrei- 
bung werden fiir den Teil des Con^uterprogramms ermittelt, 

10 • Programmelemente werden aus dem Teil des Computerprogramms 
ausgewcLhlt, 

• fur jedes ausgewahlte Programmelement wird unter Verwendung 
einer gespeicherten Fehlerbeschreibung, die jeweils einem 
Ref erenzelement zugeordnet ist, eine Elementenf ehlerbe- 

15 schreibung ermittelt, mit der mogliche Fehler des jeweili- 
gen Programmelements beschrieben werden, 

• mit einer Fehlerbeschreib\ang eines Ref erenzelements werden 
mogliche Fehler des jeweiligen Ref erenzelements beschrie- 
ben, und 

20 • aus den Elementenf ehlerbeschreibungen wird die Gesamtfeh- 
lerbeschreibung unter Berucksichtigung der Kontrollf luBbe- 
schreibtang und der Datenf lufibeschreibung ermittelt. 

16. Computerlesbares Speichermedium, auf dem ein Programm ge- 
25 speichert ist, das es einem Computer ermoglicht, nachdem es 

in einen Speicher des Computers geladen worden ist, folgende 
Schritte durchzufilhren zur Ermittlxing einer Gesamtf ehlerbe- 
schreibung zumindest eines Teils eines Computerprogramms: 

• zumindest der Teil des Computerprogramms ist gespeichert, 
30 • eine Kontrollf luBbeschreibung und eine Datenf IxoBbeschrei- 

bung werden ftir den Teil des Computerprogramms ermittelt, 

• Programmelemente werden aus dem Teil des Computerprogramms 
ausgewahlt, 

• fur jedes ausgewahlte Programmelement wird unter Verwendung 
35 einer gespeicherten Fehlerbeschreibung, die jeweils einem 

Ref erenzelement zugeordnet ist, eine Elementenf ehlerbe- 
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schreibxing enoittelt, mit der mogliche Fehler des jeweili- 
gen Pro gramme laments beschrieben werden, 

• mit einer Fehlerbeschreibiing eines Ref erenzelements warden 
mogliche Fehler des jeweiligen Ref erenzelements beschrie- 

5 ben, iind 

• aus den Elementenf ehlerbeschreibungen wird die Gesamtfeh- 
lerbeschreibung unter Berticksichtigung der Kontrollf IxiBbe- 
schreibung und der Datenf luBbeschreibung ermittelt. 
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